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Vorwort 


Nach dem Durcharbeiten des vorliegenden Buches werden 
Sie in der Lage sein zu erkennen, wozu Computer sinnvoll einge¬ 
setzt werden können und was dabei besonders beachtet werden 
muß. Lind das ist ein Wissen, das gerade heute immer wichtiger 
wird. Viel Spaß! 


Thomas Guss 


1 

Vom Taschenrechner zum Sinclair 

ZX 81 


Eigentlich gibt es sie ja schon lange, die Taschenrechner. 

Rechengeräte waren bereits im alten China bekannt, und mit 
viel Übung ist es auch heute noch möglich, mit einem Abakus so 
schnell wie mit einem Taschenrechner zu rechnen. 

In unserer westlichen Welt beginnt das Zeitalter des Rechners 
erst sehr viel später. Wie man Rechenoperationen mechanisieren 
könnte, beschäftigte erst Wilhelm Leibniz und Blaise Pascal, der 
sogar mehrere Versionen seiner Rechenmaschine konstruierte. 
Die erste schreibende Rechenmaschine baute der Amerikaner 
William Seward Burroughs. Durch eine Erfindung des am 29. Fe¬ 
bruar 1860 in Buffalo, New York, geborenen Herman Hollerith 
wurde die Entwicklung der Datenverarbeitung und damit auch 
des Rechners um ein großes Stück vorangetrieben: durch die 
Lochkarte. Hollerith studierte Ingenieurwissenschaft an der Co¬ 
lumbia-Universität. Er wurde Assistent eines Professors, der 
Hauptsachverständiger der zehnten Volkszählung (1880) in den 
USA war. Trotz einer Vielzahl von Hilfskräften dauerte das 
Auszählen dieser Volkszählung beinahe zehn Jahre. 

Die elfte Volkszählung, 1890, dauerte dank der elektromecha¬ 
nisch arbeitenden Maschinen des Herman Hollerith knapp vier 
Wochen. Das Zeitalter der Computertechnik hatte begonnen. 

1910 wurde in Berlin die Deutsche Hollerith-Maschinen-Ge- 
sellschaft gegründet, die später in der IBM aufging. 
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Vom Taschenrechner zum Sinclair ZX 81 


31 Jahre nach Holleriths Erfindung konstruierte der Berliner 
Ingenieur Konrad Zuse den ersten programmgesteuerten Rech¬ 
ner der Welt. Die Maschine mit Namen «Z3» brauchte für eine 

t 

Multiplikation nur drei Sekunden. Die Rechenmaschinen waren 
damals noch saalfüllend. Die erste Großrechenanlage der Welt, 
der 1944 von dem amerikanischen Mathematikprofessor 
Howard T. Aiken konstruierte «Mark I», wog 35 Tonnen. 

Mit der Erfindung des Transistors konnten Rechenanlagen 
kleiner und leichter werden. Auch Österreich blieb bei der Wei¬ 
terentwicklung von Rechenanlagen nicht untätig. Der erste 
österreichische Digitalrechner wurde von H. Zemanek 1956 bis 
1958 gebaut. Der Rechner mit Namen «Mailüfterl» enthielt 3000 
Transistoren, 5000 Germaniumdioden, 2500 Ferritringe, 15 000 
Widerstände, 20 Kilometer Schaltdraht und rund 100 000 
Lötstellen. 

«Ein kleiner Schritt für einen Mann — doch ein großer 
Schritt für die Menschheit» — das war das Raumfahrtprogramm 
der NASA auch für die Geschichte der Datenverarbeitung. Denn 
mit einmal bestand der Zwang, sämtliche Bauteile so klein und 
leicht wie möglich zu konstruieren. Neue Techniken wurden 
entwickelt, die bekannteste und bahnbrechendste davon der In¬ 
tegrierte Schaltkreis, kurz «Chip». 

Mit solchen Chips — etwa in Daumengroße — ist es nunmehr 
möglich, Rechner im Tisch- und später auch im Taschenformat 
herzustellen. Es dauerte zwar noch etwas, bis der Taschenrechner 
auch für das Publikum erhältlich war, doch 1972 war es soweit: 

Der erste Taschenrechner konnte der staunenden Weltöffent¬ 
lichkeit präsentiert werden. Das Gerät, das damals Aufsehen 
erregte, war nicht nur von der Leistung, sondern auch vom De¬ 
sign her überzeugend. 

Erfunden vom bis dahin noch völlig unbekannten Engländer 
Clive Sinclair. 

Obschon viele Firmen heute von sich behaupten, an der Ent¬ 
wicklung des Taschenrechners beteiligt gewesen zu sein, nimmt 
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Clive Sinclair für sich in Anspruch, der eigentliche Vater des 
Taschenrechners zu sein. 

Die Taschenrechner erlebten einen unglaublichen Höhenflug. 
Selten hat sich ein technisches Gerät so rasch durchgesetzt wie 
der Taschenrechner. 

1972 war ein Rechner bei einer Mount-Everest-Expedition 
dabei, kurz später wurde der Taschenrechner bei einem Skylab- 
Flug eingesetzt. Matra-Simca setzte 1974 einen Taschenrechner 
ein, um das 24-Stunden-Rennen von Le Mans zu gewinnen. Als 
die Raumfähre Apollo und Sojus ihr Koppelmanöver imAll voll¬ 
zogen, war ein Taschenrechner im Spiel, und 1977 und 1980 
gewannen die Segeljachten «Couragous» und «Freedom» den 
America Cup mit Hilfe von Taschenrechnern. 1977, als der Ta¬ 
schenrechner fünf Jahre alt war, tauchte einer der kleinen Rech¬ 
ner mit einem Unterseeboot in den Pazifischen Ozean. Ein Ta¬ 
schenrechner war es, der als Navigationshilfe des Ballonflugs 
über den Atlantik eingesetzt wurde, und ein Taschenrechner war 
es auch, der Space-Shuttle-Piloten im Fall einer Computerstö¬ 
rung bei der Landung helfen sollte. 

Doch nicht nur für die beiden Piloten wurde der Taschenrech¬ 
ner unentbehrlich, sondern auch Schüler und Hausfrauen began¬ 
nen den Wert eines derartigen Rechengerätes zu entdecken. 

Mit der Massenfertigung wurden die Taschenrechner auch 
leistungsfähiger und billiger. Die programmierbaren Taschen¬ 
rechner kamen auf — einfache Geräte, die in der Lage sind, sich 
wiederholende Rechenvorgänge zu speichern. Die Taschenrech¬ 
ner wurden immer mehr verbessert und weiterentwickelt. Die 
logische Folge ließ nicht auf sich warten. 

Wieder war es Clive Sinclair, der eine neue Dimension im 
Rechnerbau einleitete: Den Heimcomputer für jedermann. 
Nicht wesentlich größer als ein herkömmlicher Taschenrechner, 
hat dieses Gerät eine Vielzahl an Vorteilen, die es von ihm 
unterscheiden. Der Sinclair ZX 81, so der Name des neuen Gerä¬ 
tes, ist frei programmierbar. 





12 Vom Taschenrechner zum Sinclair ZX 81 

Der Sinclair ZX 81 spricht BASIC, die einfachste und weitver¬ 
breitetste Computersprache der Welt. BASIC läßt sich in etwa 
zwei Wochen mühelos lernen. 

Zweifellos wird der Heimcomputer die nächsten Jahre prägen 
— ihm wird eine noch rasantere Entwicklung als dem Taschen¬ 
rechner vorausgesagt. 

Clive Sinclair ist heute schon dabei: knapp eine Million Stück 
des «Renners» Sinclair ZX 81 konnten bereits abgesetzt werden. 


2 

Spiele 


Eines der bekanntesten Anwendungsgebiete für Heimcomputer 
sind Spiele aller Art. Der Spieltrieb des Menschen ist unerschöpf¬ 
lich, und seit es Computer gibt, haben die Programmierer damit 
gespielt: Computerlogik gegen menschliche Kreativität. Von die¬ 
sem Zweikampf geht eine ungeheure Faszination aus. Und so 
sind Computerspiele aller Art der Verkaufsschlager geworden, 
der sie heute sind. «Nur mit den Computerspielen können wir 
noch Umsätze in dieser tristen Branche machen», sagte der Ge¬ 
schäftsführer einer großen Spielwarenimportfirma. 

Im Hinblick auf deren große Beliebtheit wird auch das Soft¬ 
wareprogramm des ZX 81 von Spielprogrammen dominiert. Bei 
weitem nicht das einzige, was man mit diesem Gerät tun kann; 
bei der weiteren Lektüre dieses Buches werden Ihnen hoffentlich 
auch einige andere Einfälle kommen. Trotzdem wollen auch wir 
Ihnen einige Spielprogramme bieten. Übrigens: gehen Sie ein¬ 
mal in ein Spielwarenfachgeschäft und lassen Sie sich zeigen, was 
es da so alles an Computerspielen gibt. Für beinahe jede Spiel¬ 
idee könnte man ein ZX-81 -Programm schreiben. 

Nun zu der Bedienungsanleitung unserer Spielprogramme: 
«RACE». Ziel des Spiels ist es, mit Ihrem Auto den Parcours so 
lange wie möglich zu befahren und dabei nicht gegen ein X zu 
stoßen. Die Steuerung erfolgt über die vier Cursor-Tasten. Dieses 
Spiel fordert Verbesserungen geradezu heraus. So kann die 






14 


Spiele 



Der ZX 81 von innen: Nur 4 Chips und eine Handvoll anderer elektronischer 
Bauteile ergeben einen Computer 
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Rennstrecke in den Zeilen 20 bis 115 Ihrem wachsenden Können 
angepaßt werden. 

«BOMBER». Ein kleines Kampfflugzeug fliegt über eine 
Reihe von Wolkenkratzern. Mit dem Druck auf eine beliebige 
Taste (außer «break» und «space») lösen Sie eine Bombe aus, die 
jeweils ein Stück eines Wolkenkratzers zerstört. Nach jedem 
Durchgang fliegt Ihr Bomber um ein Stückchen tiefer. Ziel des 
Spiels ist es, den unteren Bildschirmrand zu erreichen, ohne 
vorher an einem Hochhaus zu zerschellen. Zu Beginn des Spiels 
geben Sie den gewünschten Schwierigkeitsgrad ein, der ja der 
Höhe der Wolkenkratzer entspricht. Am Ende des Spiels gibt 
Ihnen der ZX 81 Ihren Punktestand bekannt, der von der Anzahl 
der abgeschossenen Einheiten abhängt. 

«PFERDERENNEN»: Dieses Spiel sollte Ihnen ein bißchen 
von der prickelnden Atmosphäre eines Rennplatzes nach Hause 
bringen. Zunächst geben Sie die Anzahl der Mitspieler ein, maxi¬ 
mal 10; dann tippt jeder der Spieler seinen Namen, der nicht 
länger als 15 Zeichen sein darf, in den Computer. Jetzt druckt der 
Computer die Quote der einzelnen Pferde aus und erkundigt sich 
anschließend bei jedem Spieler, auf welches Pferd er setzen 
möchte. Der Spieler gibt dem Computer seine Wahl durch Ein¬ 
tippen der Kennzahl des Pferdes und durch Eintippen des Wett¬ 
betrags ein. Zu Beginn des Spiels hat jeder Teilnehmer 1000 
Einheiten, um zu wetten. Wenn sich alle Spieler entschlossen 
haben, laufen die Pferdchen über den Bildschirm. Das Rennen 
wird von der Ausgabe des Endergebnisses gekrönt. Natürlich sagt 
Ihnen der Computer auch, welcher Spieler wieviel gewonnen 
hat. Zum Schluß noch eine kleine Warnung: Das Renngeschehen 
hängt zwar stark von der Quote der einzelnen Pferde ab, doch 
sich allein darauf zu verlassen, ist keine Garantie für Erfolg, 
denn auch ein Zufallsgenerator ist im Spiel. Spieler, die pleite 
gegangen sind, übersieht der ZX 81 übrigens vornehm bei seiner 
Frage nach den Wetteinsätzen. 
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Spiele 
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RACE 


5 CLS 

15 print’^xxxxxxxxxxxxxxxxxxxx 

XX 2© X PRINT X ^XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXX" 

- xxxxxxxxxx 


xxxxxxxx 


XX 


X X 


XX 

XXX 


XXXX 

XXXXXX 

XXXX 


25 PRINT "XXXXXX 
XXXXXXXXXXXX " 

30 PRINT "XXXX 
X XXXXXXXX" 

35 PRINT "XXXX 
XXXXX" 

4-0 PRINT "XXXX 
XX XXXX" 

4-5 PRINT "XXXX 
XXX XXX" 

50 PRINT "XXXXXX 
XXXX XXX" 

55 PRINT "XXX XXXX 

XXXX XXX" 

60 PRINT "XX 
XX XXX" 

65 PRINT "XX 
XX X XX" 

70 PRINT "XXX 
XXX X XXX" 

75 PRINT "XXX 
XX XX XXX" 

80 PRINT "XXX 
X XXXX XXX" 

85 PRINT "XXXX 
X XXXXX XXX" 

90 PRINT "XXXXX 
X XXXX XXX" 

95 PRINT "XXXX 
XXX XXXX" 

100 PRINT "XXXXXX XXXXXXXXXXX 
X XXXXX" 

105 PRINT "XXXXXXX 
X XXXXXX" 

110 PRINT "XXXXXXX 
XXXXXXX" 

115 PRINT "XXXXXXXXXX 
XXXXXXXXXX" 

120 PRINT "XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXX" 

125 LET X = INT CRND*32J 
13© LET V = INT CRND*22* 

135 PRINT RT Y,X; 

14-0 IF PEEK CPEEK 16398+256*PEE 
K 16399)00 THEN GOTO 125 
14-5 PRINT "■" 

150 LET P=0 

155 IF INKEY*—"" THEN GOTO 155 




XXXXXXX X 

XXXXX X 

XXXXXXX 

XXXXXXXXXX XX 
XXXXXXXXXXXXX 
XXXXXXXXXXXXX 
XXXXXXXXXXX 
XXXXXXXXXXX 


XXXX 

X 
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16© LET P=P+i 

165 LET Rl=CODE INKEY$-28 
167 IF RI>8 DR RI<5 THEN LET RI 
= © 

170 IF R1>0 THEN LET R=R1 
175 PRINT FTT Y , X; " " 

180 LET X=X+CR=8) - CR=5) 

185 LET Y=Y+CR=6)-CR=7) 

190 PRINT RT Y^X; 

195 IF PEEK CPEEK 16393+256tPEE 
K 16399)<>0 THEN GOTO 250 
200 PRINT "H" 

205 GOTO 160 
250 FOR 1=1 TO 20 
255 NEXT I 
260 CLS 

265PRINT "SIE SIND GEGEN EIN H 
INOERNIS , "GEKNRLLT. " 

270 PRINT ,/'SCORE: ";P 
275 PRINT ,,,,"WOLLEN SIE ES NO 
CHE INMRL","VERSUCHEN 7" 

280 IF INKEY ® < > " " THEN GOTO 280 
285 IF INKEYt="" THEN GOTO 285 
290 IF INKEY$="U“ THEN RUN 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
XXXXXX xxxxxxxxxxxxxxxxxxxxxx 
XXXX xxxxxxxxx xxxxxxxx 

XXXX XX X XXXXX 
XXXX X X X XX XXXX 
XXXX XX XXXX XXX XXX 
XXXXXX XXX XXXXXX XXXX XXX 
XXX XXXX XXXX ES XXXX XXX 
XX XXXXXXX X XX XXX 
XX XXXXX X XX X XX 
XXX XXXXXXX XXX X XXX 
XXX XXXXXXXXXX XXXX XX XXX 
XXX XXXXXXXXXXXXXX XXXX XXX 
XXXX XXXXXXXXXXXXXX XXXXX XXX 
XXXXX XXXXXXXXXXXX XXXX XXX 
XXXX XXXXXXXXXXX XXX XXXX 
XXXXXX XXXXXXXXXXX X XXXXX 
XXXXXXX XXXX XX XXXXXX 
XXXXXXX X XXXXXXX 
XXXXXXXXXX XXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


EEEEEEEEEEEEEEEEEEEEEEEEEE 


2 Der Mikrocomputer ZX 81 
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Spiele 
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BOMBER 

5 LET K=0 
10 LET P=1 
15 LET X=0 
20 LET Y=0 

25 PRINT •• SCHUIERIGKE ITSSRflD ( 
1-9) T" 

30 INPUT S 

31 CLS 

35 LET 5 = 12 —S 
4-0 FOR 1=0 TO 31 

4-5 FOR 0=5 +INT CRND+S) TO 21 
50 PRINT RT U / I;' , T* 

55 NEXT U 
S© NEXT I 
80 PRINT RT X,Y; 

85 IF PEEK (PEEK 16396 +255fPEE 
K 16399)>128 THEN GOTO 400 
87 PRINT 

90 IF NOT P THEN GOTO 105 
95 LET X1=X 
100 LET Y1=Y 

105 IF INKEY$<>"*' THEN LET P=0 
110 IF P=1 THEN GOTO 150 
115 PRINT RT Xl,Yi; " " 

120 LET X1=X1+1 

125 IF XI=22 THEN GOTO 320 

130 PRINT RT Xl,Yl; 

135 IF PEEK (PEEK 16398+256*PEE 
K 16399)=132 THEN GOTO 300 
140 PRINT 

150 PRINT RT X,Y; ~ " 

155 LET Y=Y + 1 

160 IF Y <32 THEN GOTO 180 

165 LET Y =0 

170 LET X=X + I 

175 IF X=22 THEN STOP 

180 GOTO 80 

300 FOR I=X1-1 TO INT (RND*22) 

305 LET K =K +1 

310 PRINT RT I # Yl;" “ 

315 NEXT I 
320 LET P=1 
325 GOTO 80 
400 PRINT 

405 FOR I=X TO K/10/{21-X) STEP 
-1 

407 PRINT RT I,Y; ••fi" 

410 NEXT I 

411 FOR 1=1-1 TO X-l 

414 PRINT RT I,Y;" " 

415 NEXT I 

420 PRINT RT 0,0; K 

425 IF INKEY$O l,, ‘ THEN GOTO 425 
430 IF INKEY$ = ,,,% THEN GOTO 430 
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435 CLS 
440 GOTO 1 


SCHUIERIGKEIT5GRRD (1-9) 7 



k 


2* 
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naHCsnac5ac5anc5C3aaannaacs[ic5ann 

PFERDERENNEN 

5 CLS 

10 FOR 1=1 TO 32 
15 PRINT 
20 NEXT I 

25 PRINT “»'•; THB 31; 

30 PRINT ■ 

" i TRB 31;"ü- 
3 5 PRINT ' 
ü91";trb 31; 

4.0 PRINT "1 
”; TAB 31; 

4-5 PRINT ;TRB 31; 

, 50 PRINT "1 ft fV 

I" ; TRB 31; _ 

55 PRINT ^ 

i"; TRB 31;"1" .. _ _ _ _ __ _ 

60 PRINT iWm ft.1 TU 

tr ;trb 31 ; "WC* 

6S PRINT ^Sk" ; TRB 31; 

70 FOR 1=1 TO 32 
75 PRINT "M"i 
80 NEXT I 
85 PRINT 

90 PRINT RT 12/0;"UIEUIELE UOL 
LEN",,"HITSPIELEN fMflX.10)? 

95 INPUT S 
100 LET S =INT ABS S 
105 IF S=0 OR 5>10 THEN RUN 
110 PRINT 5 
115 DIM N$(5,16 ) 

117 DIM X$(32) 

120 DIM W fS|3> 

125 FOR 1=1 TO S 
130 LET U(I # 1J =1000 
135 NEXT I 

14-0 PRINT RT 15/0; "GEBEN SIE NU 
N DER REIHE NflCH“ # "IHRE NRMEN EI 

N" 

14-5 FOR 1 = 1 TO S 

150 PRINT RT 18,0;"SPIELER ";I; 
n ^ 11 i X$ 

155 * INPUT R$ 

160 IF CODE R$=0 OR LEN R$>15 T 
HEN GOTO 135 

165 LET N$(I)=CHR$ LEN R*+R$ 

170 PRINT RT 18,0;"DRNKE,";N*CI 
,2 TO ) 

175 FOR U = i TO 20 
180 NEXT U 
185 NEXT I 

190 CLS 

191 DIM RC10) 


cscsaaaaciciacscicsnacsacsnanaaniüaa 


193 FOR 1=1 TO 10 
195 LET R(I) =INT CRND*30+1J 
197 PRINT "* PFERD ";I-1;TRB 20 
; " 1: R (I) ; TRB 31; " 1" 

200 NEXT I 
205 PRINT 

210 FOR 1=1 TO S 

215 IF UCI/1>=0 THEN GOTO 300 
220 PRINT RT 14-,0; N$ (1/2 TO COD 
E N$(I)+1);"/SIE HRBEM 

225 PRINT "RUF WELCHES PFERD WO 
LLEN SIE" / “HETZEN *? 

230 INPUT P 

235 LET P = INT RBS P 

24-0 IF P > 9 THEN GOTO 230 

24-5 PRINT P 

250 LET U CI/2) =P 

255 PRINT "GUT,UND UIEUIEL UOLL 
EN SIE"/"SETZEN 7 
26© INPUT U 
265 LET U=INT RBS U 
27© IF U>U(1,1) THEN GOTO 260 
275 PRINT U 
277 LET UCI/3 )=U 

23© PRINT //"NR HOFFENTLICH GEW 
INNEN SIE" 

235 FOR \J = 1 TO 2© 

298 NEXT U 

295 PRINT RT 14- / 0 ; X*; X$; X$; X$; X 

$;x$;x$ 

300 NEXT I 
305 CLS 


315 PRINT 

RT 5.^.| "j 

liT 1 

320 PRINT l 

RT 6,0;" 

DER STRRTSCHU 


SS FRELLT IN KUERZE" 
325 NEXT I 
330 CLS 

335 POKE 164-18/0 
340 FOR 1=1 TO 24 
345 PRINT 


350 NEXT I 
355 DIH P(10/2? 

36© PRINT RT 1,11; "1 
365 PRINT RT 22/11; 

370 FOR 1=1 TO 10 
380 PRINT RT P (I, 1) , 1^2+4; “1" 
390 LET PCI,1>=PCI,1)+INT RBS 
-R CI) /10 +RND*3) 

395 IF PCI/l) >22 THEN GOTO 420 
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4-00 PRINT RT P(I,1) ,1*2+4.;^$ 
(1+155) 

405 NEXT I 

4-10 GOTO 370 

4-20 FÜR 1 = 1 TO 10 

4-25 LET P (1,2) =1-1 

4-30 NEXT I 

4-35 FOR 1 = 1 TO 10 

4-4-0 LET Zl=P(I,i) 

4-4-5 LET Z2=P(I,2) 

4-4-7 IF 1=7 THEN PRST 
4-50 FOR J = I + 1 TO 10 

455 IF Zl>=P(J l i) THEN GOTO 420 
450 LET P(I,1)=P(Ü,D 
465 LET P(I,£)=P(U,£> 

470 LET P (U,1) =21 
475 LET P(Ü,2)=Z2 
480 LET Z1=P(I t 1) 

485 LET Z2=P (2<2) 

490 NEXT U 
495 NEXT I 
497 CL5 

500 POKE 16418,2 

505 PRINT “HIER SIND DIE ERGEBN 
ISSE: " 

510 PRINT 

515 PRINT ■■— 


520 POR 1=1 TO 10 

525 PRINT "I "; (" " RND I<10) ;l; 

”■PLATZ: PFERD " ; P (1,2 >;TRB 3 

530 NEXT I 
533 SLOW 

535 PRINT "Ihbhhbhmhibhhhmhhbhbh 

. .i I 

540 POR 1=1 TO S 

545 PRINT RT 1 t 2 TO COD 
E N$(I) +1) ; ", SIE HRBEN "; 

550 PRINT ("**GEUONNEN**" RND W 
(I , 2) =P (1,2) ) + <"LEIDER UERLOREN" 
RND U (1,2) OP (1,2) ) 

555 IP U(I J 2)=P(I / 2) THEN LET U 
(1,1) =U (I,1) +U (1,3) *R(P(1,2) +1) 
550 IP Utl ,2) OP (2,2) THEN LET 
Ü(I,1) =U(I, 1) -U(1,3) 

565 IF U(Ij 1) < =0 THEN PRINT "51 
E SIND PLEITE" 

570 IP 14(1,1) >0 THEN PRINT "SIE 
HRBEN JETZT ";U(I,D 
575 POR 0=1 TO 50 
580 NEXT U 

585 PRINT RT 15,0;X$;X$ 

590 NEXT I 

595 CLS 

596 POR 1=1 TO S 

597 IP W(I,1)>0 THEN GOTO 600 


EEEEEEEEEEEEEEEEEEEEEEEEBE 
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598 NEXT I 

599 GOTO 700 

600 PRINT "WOLLEN SIE NOCH EINM 
RL SPIELEN ?" 

605 INPUT R$ 

610 IP CODE R$=0 THEN GOTO 605 
615 IP fi$(l)="U" THEN GOTO 190 
620 CLS 

625 PRINT RT 3,7; "NR,GUT" 

630 PRINT "ICH HOPPE SIE HRBE 
N SICH GUT" 

535 PRINT , , "UNTERHRLTEN. SPIE 
LEN SIE DIESES" 

640 PRINT ,,"PROGRAMM BRLD WIED 
ER ■ • ■ ■ 

650 STOP 

700 PRINT "SIE SIND" 

705 PRINT RT 3,5;"P LEITE" 
71© PRINT RT 5,0; 

715 GOTO S30 
9999 STOP 



Lf IEUIELE WOLLEN 
MITSPIELEN (MRX•10)? 3 

GEBEN SIE NUN DER REIHE NOCH 
IHRE NRMEN EIN 

SPIELER 2 7 


PFERD 

0 

1: 7 

PFERD 

1 

1 : 19 

PFERD 

2 

1: 11 

PFERD 

3 

1: 23 

PFERD 

4 

1: 4 

PFERD 

5 

1: 27 

PFERD 

6 

3L: 14 

PFERD 

7 

1: 24 

PFERD 

8 

1: 20 

PFERD 

9 

1: 30 


EBEEEEEBBBEEBEEEBEEE 


Wfwi 
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MRRTIN,SIE HABEN 100©. 

RUP WELCHES PFERD WOLLEN SIE 
SETZEN 7 9 

GUT,UND UIEUIEL WOLLEN SIE 
SETZTEN 7 60© 


NR HOFFENTLICH GEWINNEN SIE 



HIER SIND DIE ERGEBNISSE: 


PFERD 9 
PFERD 5 
PFERD 7* 
PFERD 3 
PFERD 4 
PFERD O 
PFERD S 
PFERD 6 
PFERD 2 
PFERD 1 


WERNER,SIE HABEN LEIDER VERLOREN 
SIE HRBEN JETZT 7*0© 


EEEEEEEEEEEEEEEEEBEEEEEEEE 


1- PLATZ: 

2. PLATZ 

3. PLRTZ 

4. PLRTZ 
5 -PLRTZ 
6.PLRTZ 
7 -PLRTZ 

5. PLRTZ 
9.PLRTZ 

10.PLRTZ 


3 

Der ZX 81 als Lehrcomputer 


«Wieviel ist die Quadratwurzel von 484?» steht in kleinen grü¬ 
nen Buchstaben auf dem Bildschirm. Zögernd tippt der Schüler 
18 ein. «Falsch» schreibt der Computer. «Ich glaube, Sie haben 
das System des Wurzelziehens noch nicht ganz verstanden. Ich 
erkläre es Ihnen noch einmal ...»Kurz blickt der Schüler hoch 
und läßt seinen Blick über die Klasse wandern. Um ihn herum 18 
Klassenkollegen, die alle vor einem kleinen Bildschirm mit einer 
Tastatur sitzen. Lehrer wird in dieser Schulklasse keiner ge¬ 
braucht. Der Lehrer ist der Computer. 

Eine Zukunftsvision? Wohl kaum! Denn Schulversuche in 
dieser Richtung wurden tatsächlich schon gestartet. Und es stellt 
sich dabei heraus, daß der Computer imstande ist, besser auf die 
Schwächen des einzelnen Schülers einzugehen, als dies ein Leh¬ 
rer je könnte. Außerdem entscheidet der Computer immer neu¬ 
tral. Es gibt keine Bevorzugung von einzelnen Schülern, nur die 
Leistung zählt. Interessant auch der Versuch, bei dem die Infor¬ 
mationen in Form eines computergesteuerten Diavortrags ver¬ 
mittelt werden. In den Diavortrag sind verschiedene Fragen ein¬ 
gestreut, die der Schüler mittels einer kleinen Handtastatur 
beantwortet. Der Computer wertet die Antworten blitzschnell 
aus, und je nach Lernfortschritt des Schülers werden einzelne 
Teile des Diavortrags übersprungen oder wiederholt. Auch wir 
mit unserem ZX81 können ähnliche Versuche machen, wenn 
auch nicht in so großer Form. 
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Der ZX 81 als Lehrcomputer 


Welche Eigenschaften sollte nun ein gutes Lehrprogramm 
haben? Zunächst sollte es einfach im Aufbau sein, d.h., der 
Schüler muß rasch durchschauen können, worum es geht. Dann 
sollte das Programm benutzerfreundlich sein, also bei falschen 
oder fehlerhaften Eingaben nicht abstürzen. Viele kleinere, aber 
trotzdem gute Lehrprogramme für den ZX 81 lassen sich auch in 
1K Speicher realisieren. Das hat den zusätzlichen Vorteil, daß die 
Ladezeiten kurz sind und ein Programmverlust durch Anstoßen 
an die Speichererweiterung unmöglich ist. Nicht zuletzt sollte 
das Lehrprogramm dem Schüler auch Spaß machen. Bewertun¬ 
gen, Punktezahlen und dergleichen spornen eben einfach mehr 
an als zehnmal hintereinander die Meldung «falsch». 

Wie schon erwähnt, sind Lehrprogramme ein besonders ent¬ 
wicklungsfähiger Anwendungsbereich für Mikrocomputer. 
Denn egal, ob Multiplikation oder Binär-in-Dezimal-Umwand- 
lungstest, der ZX 81 ist immer ein unbestechlicher und geduldi¬ 
ger Lehrer sowohl für Ihre Kinder als auch für Sie selbst. 

Rechteck 

Der ZX 81 gibt eine Rechenaufgabe im Bereich von 1 x 1 bis 
15 x 15 an, und um das Einordnen des Ergebnisses zu erleich¬ 
tern, wird gleichzeitig ein Rechteck mit entsprechenden Seiten¬ 
längen ausgedruckt. Die Aufgabe des Prüflings ist es, das hoffent¬ 
lich richtige Ergebnis einzutasten. Nach zehn Aufgaben wird die 
Anzahl der richtig gelösten Rechnungen ausgespuckt. Für 16 K 
können Sie das Programm wie folgt ändern: 


ZEILE 30 LET X = INT (RND*17 + P) 
ZEILE 35 LETY = INT(RND*31+P) 


Der ZX 81 als Lehrcomputer 
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RECHTECK 


5 LET Z=0 
10 LET P=NOT Z 
15 LET R=Z 
20 CLS 

25 PRINT RT 4-.. 0; 

30 LET X = INT tRND*15+P) 

35 LET Y = INT (RND*15+P> 

4.0 GQ5UB 99 

4.5 FOR I=P TO X 

SO PRINT ; TflB Y+P; 

55 NEXT I 
50 GD5UB 99 

65 PRINT RT P,NOT P;X;" X ";Y; 

~70 INPL/T E 
75 PRINT X*Y 
80 LET Z=Z+P 

85 IF E=X*Y THEN GOTO 150 
90 PRINT RT P+P,NOT P; ••FfiLSCH'’ 
92 IF Z=10 THEN GOTO 200 
95 PRUSE 200 
97 GOTO 20 
100 FOR I=-P TO Y 
105 PRINT ’1 H ; 

110 NEXT I 
115 PRINT 

120 RETURN _ 

150 PRINT RT P •♦■P .. NOT Pj "RICHTIG 

155 LET R=R+P 
160 GOTO 92 
200 CLS 

205 PRINT R;” RICHTIG“ 


9 X 12=10© 
RICHTIG 
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Der ZX 81 als Lehrcomputer 


Zahlenfresser 

Der Computer gibt per Zufallsgenerator acht verschiedene Zah¬ 
len aus, die der Reihe nach überfahren werden müssen. Die 
Eingabe erfolgt jeweils in Form einer Zahl, die den Winkel, in 
dem sich der inverse Pfeil bewegen soll, entspricht. Wollen Sie 
beispielsweise einen Schritt nach unten machen, geben Sie 90 
ein, soll der Schritt nach rechts gehen, ist Ihre Zahl 45. Wollen 
Sie einen weiteren Schritt in der gleichen Richtung gehen, tippen 
Sie einfach B ein. Wenn Sie alle Zahlen in ihrer Reihenfolge 
überfahren haben, wird Ihnen ein Punktestand ausgedruckt, der 
der Anzahl der gemachten Schritte entspricht. Für 16 K ändern 
Sie das Programm wie folgt: 

Zeile 40 X = RNDx21 
Zeile 45 Y = RNDx31 

Wollen Sie bei 16K-Speicher statt 8 Zahlen 10 Zahlen auf dem 
Bildschirm, ändern Sie Zeile 35: 

35 FOR 1 = 0 TO 9 


Umwandlung binär in dezimal 

Dieses Programm für 1 K-Speicherplatz erzeugt auf dem Bild¬ 
schirm einen 8-Binär-Code, der zur leichteren Übersichtlichkeit 
in zwei Blocks geordnet ist. Sie geben nun einfach die diesem 
Wert entsprechende Dezimalzahl ein. Nach 10 Durchgängen gibt 
der Computer die Anzahl der Treffer bekannt. 
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ZAHLENFRESSER 

£ 8 */ 

10 LET Z=0 
25 LET Q=NOT Z 
3ö DIM R$(8,2> 

35 FOR 1=1 TO 8 

4.0 LET X=RND*19 

4-5 LET Y=RND*25 

50 LET =CHR$ X+CHR* Y 

55 PRINT RT X,Y; I 

50 NEXT I 

65 LET X=Z 

7© LET Y=Z 

75 LET Z=Z+1 

80 PRINT RT X,Y;"B" 

65 INPUT B 

90 PRINT RT X,Y;" " 

95 LET R=B/1S0*PI 
100 LET X=X-SIN R 
105 LET Y =Y +COS R 

■110 IF =CHR$ X RND fl$(0^ 

i) =CHR$ Y THEN LET 0=0 -Fl 
115 IF Q<9 THEN GOTO 75 
120 CLS 
125 PRINT Z 


7 

3 

B 2 

5 

S 


6 
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UMWANDLUNG BINÄR/DEZIMAL 


1 LET R=0 
5 LET P=NGT R 
1© LET Z=l© 

15 LET «$ = ''00000000'* 

20 LET B = INT CRND*255J 
25 LET R=B 
3© LET 0=8 

35 IF B/2-INT fB/2> THEN LET R 
$ (Q) =STR$ P 

4-0 LET B = INT CB/2) 

4-5 LET Q=Q-P 

50 IP © THEN GOTO 35 

55 CLS 

6© PRINT 11 -Z / / P $ ( TO 4-) ; " ,B ; R 
$(5 TO );" 

65 INPUT E 
70 PRINT R 

75 IP R-E THEN GOTO 29 
80 PRINT ,* "RICHTIG" 

85 LET R=R+P 

90 LET Z=Z-P 

93 PRUSE 200 

95 IF Z>0 THEN GOTO 15 

97 GOTO 15© 

100 PRINT / , "PRLSCH** 

105 GOTO 90 
150 CLS 

155 PRINT R; " RICHTIG" 


1 

1001 0000 =14.4, 
RICHTIG 
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Hangman 

Eine weitere Version des beliebt-bekannten Wortratespiels für 
den 1K-ZX-81. Die erste Eingabe betrifft das Wort, das später 
erraten werden soll. Die Eingabeprozedur sollte natürlich vom 
zweiten Spieler nicht gesehen werden. Der zweite Spieler tippt 
dann anschließend jeweils einen Buchstaben ein, von dem er 
annimmt, daß dieser im Wort vorkommt. Der Computer infor¬ 
miert ihn daraufhin, ob diese Annahme richtig oder falsch ist, 
und druckt sowohl die bereits verwendeten Buchstaben als auch 
die schon erratenen Wortteile auf den Bildschirm. 


Vokabel-Lemprogramm 

Dieses Programm ist dialogorientiert, d.h., der lernende Schüler 
braucht praktisch keine weiteren Angaben. Die Vokabeln wer¬ 
den vom Schüler selbst samt Bedeutung eingetippt, das Pro¬ 
gramm fragt sie dann in bestimmter Reihenfolge ab und regi¬ 
striert, ob die Vokabel richtig gemerkt wurde. Besonders die 
Eltern wird es interessieren, daß dieses Programm nach den 
Erkenntnissen modernster Lerntheorien geschrieben wurde und 
ein Behalten der damit gelernten Vokabeln garantiert. Jede Vo¬ 
kabel wird nach einem Stufensystem mehrfach abgefragt, wobei 
für die Häufigkeit der Abfrage entscheidend ist, wie oft die Voka¬ 
bel in der Vergangenheit nicht gewußt wurde. Auf diese Weise 
werden Vokabeln, die sich gut eingeprägt haben, zunehmend 
seltener abgefragt, während die schwerer merkbaren entspre¬ 
chend oft zum Zug kommen. Das ist ein klarer Vorteil gegenüber 
dem Vokabelheft, in dem die Vokabeln in einer starren Reihen¬ 
folge festgelegt sind. Beim Durchgehen des Vokabelheftes fallen 
dem Schüler nur jene Vokabeln auf, die er sich nicht gemerkt 
hat, und das Erfolgserlebnis fällt aus. Mit unserem Programm 
dagegen bekommt Vokabellernen einen gewissen Spielcharakter, 
der durchaus lernfördernd ist. 
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HANGMAN 


1 LET D $ = " " 

2 LET F=0 
10 INPUT R$ 

15 CLS 

2© FOR 1=1 TO LEN R$ 

25 LET D$=D$+" 

3© NEXT I 

4.0 PRINT flT 0,0; D$ 

4-5 INPUT C$ 

53 LET 0=0 

55 FOR 1 = 1 TO LEN R$ 

60 IF fl$(IX>C$ THEN GOTO 70 
65 LET D$(I)=C$ 

67 LET 0=1 
70 NEXT I 

73 IF 0=0 THEN LET F=F + 1 

79 IF F = 1 THEN PRINT RT 3,0; "m, 

TnrTri S0 IF F =2_THEN PRINT RT 4. *3; " S 

"; flT 5,3;‘W;flT 6,3; 

81 IF F =3 THEN PRINT RT 7,3; "| 

1 "; RT 8,3; " ■ “ 

82 IF F = 4 THEN PRINT RT 6,±;"V 
*'; RT 7,2; "V"; PT 6,6;"J*";RT 7,5;** 

83 IF F =5 THEN PRINT RT 9,3; 'V 5 

V ; RT 10 , l; ” w? ^ " 

85 IF R*<>D$ RND F<5 THEH GOTO 

4.0 

90 IF F <5 THEN CLS 

95 PRINT RT 0,0;R$ 


COMPUTER 
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VOKABEL-LERNPROGRAMM 


1 REH 

2 REM 

3 REH 
REH 

10 IF PEEK U5BI4 THEH GOTO 1E3 
15 PRINT "ÜIEÜIELE ZEICHEN PRO 
2EILE tt ,"(fm 32) 7" 

20 INPUT R 
23 POKE 16514*,© 

25 LET R=INT RBS R 

30 JF R>32 OR R<1 THEN GOTO 20 

35 LET H = INT (4-500/R) 

40 DIM fi$ CM,R*2) 

45 GOSUG 200 
50 POKE 16514,128 
55 LET X*=" 


60 

70 

75 

8 © 

100 

200 

205 

RN 

210 

215 

I 

220 

225 

228 

230 

235 

240 

245 

9 " 


DIM 3% CM) 

FOR U = 1 TO M 
LET S* CU) =••!•• 

NEXT U 
GOTO 1E3 
FOR 1=1 TO H 

IF NOT PEEK 16514 THEN RETU 

PRINT RT 2 # 0;x$;x*;x$;x$;xt 

PRINT RT 

PRINT RT 2,0; "FREMDWORT 7" 
INPUT E* 

IF CODE E$=0 THEN GOTO 1E3 
IF LEN E$ >R THEN GOTO 225 
PRINT RT 3,0;E* 

LET R« CI) =E$ 

PRINT RT 5,0; • , UEBER5ETZUNG 


250 INPUT E* 

253 IF CODE E$=0 THEN GOTO 1E3 
255 IF LEN E$>R THEN GOTO 250 
265 LET R$CI,R+1 TO )=E$ 

270 NEXT T 
275 GOTO 1E3 
300 LET Z=0 

302 FOR U = 1 TO X-l 

303 IF S$(J)<>STR$ L THEN GOTO 
405 

305 SCROLL 
307 LET Z=Z + l 

310 PRINT "STUFE ";URL S$ CU) 
315 SCROLL 
32© SCROLL 

325 PRINT "UEBERSETZEN SIE" 

330 SCROLL 




3 Der Mikrocomputer ZX 81 










34 


Der ZX 81 als Lehrcomputer 


hhhhot 


33S PRINT A$(U,1 TO R-l) 

34-0 SCROLL 
34-5 DIM K$CA) 

350 INPUT K$ 

351 IF CODE K$=0 THEN GOTO 005 
355 PRINT K$ 

360 SCROLL. 

365 SCROLL 

370 IF K$=A$(U,A+I TO ) THEN GO 
TO 50O 

375 PRINT "FALSCH. RICHTIG IST: 


360 SCROLL 

365 PRINT TO ) 

300 LET S* (U> = ,, 1“ 

395 SCROLL 
4-05 NEXT <J 

4-07 IF Z>0 THEN GOTO 300 
4-06 IF L + l>7 THEN GOTO 2000 

409 GOTO 424 

410 FRST 
415 CLS 

420 SLOU 

421 RETURN 

424 GOSUB 410 

425 PRINT "UOLLEN SIE UEITERMRC 

HEN (J/N) 7" 

430 LET L$=INKEY$ 

435 IF L* = "" THEN GOTO 430 
440 IF L$="N" THEN GOTO 1000 
445 IF L$ < >"U" THEN GOTO 430 
450 LET L=L+1 
455 GOTO 300 

500 PRINT "RICHTIG,BRAUO" 

505 SCROLL 

510 LET S$ f dU =STR$ (URL S $(M +1 


515 GOTO 395 

600 PRINT "DIE UIEUIELTE EINGAB 
E UOLLEN SIERENDERN 7" 

605 INPUT N 
610 LET N=INT ABS N 
612 IF N=0 THEN GOTO 1E3 
615 IF N — 1 > I THEN GOTO 605 
620 PRINT RT 0,0; "EINGABE "; N;X 
$; X$ 

625 PRINT RT 2,0;A$(N,1 TO R) 
630 PRINT "NEUES FREMDWORT 7" 
635 INPUT E$ 

640 IF E$ = "" THEN GOTO 1E3 
645 IF LEN E$>R THEN GOTO 635 


650 PRINT E$ 

655 PRINT ,,"NEUE 


UEBERSETZUNG 


660 INPUT K$ 

665 IF LEN K$>R THEN GOTO 660 
670 IF K$ = "" THEN GOTO 1E3 
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675 LET A$fN,l TO R) =E$ 

680 LET A$(N,A+2 TO 
685 LET S$(N)="1" 

690 GOTO 1E3 

70® PRINT "STARTEN SIE DEN REKO 
RDER/'/'DRUECKEN SIE DRNN N/L" 
705 IF INKEY$<>"" THEN GOTO 705 
710 IF INKEY$="" THEN GOTO 710 
715 SAUE "UGfi" 

720 GOTO 1E3 
995 GOSUB 410 
1000 CLS 

1010 PRINT TAB 3; "® UOLLEN SIE M 

1025 PRINT / j "LERNMODUS" 

1035 PRINT » ,"UOKABELN EINGEBEN" 
1040 PRINT " (NOCH ";1*M-I;" 

MOEGLICH)" 

1050 PRINT ,,"KORREKTUR UON UOKR 
5ELN" 

1060 PRINT j. , "PROGRAMM RUF BAND 
SPEICHERN" 

1080 IF INKEY$="" THEN GOTO 1080 
1085 LET L$ = INKEY $ 

1095 CLS 

1100 IF L$="U" THEN GOTO 205 
1105 IF L$ = "L" THEN LET L=1 
1110 IF L$="L" THEN GOTO 300 
1115 IF L$="K" THEN GOTO 600 
1120 IF L$="P" THEN GOTO 700 
1125 GOTO 1010 

2000 FOR K=1 TO 22 

2001 SCROLL 

2002 NEXT K 

2005 PRINT RT 0,0;"SIE HRBEN ALL 
E UOKABELN j> DIE IN" 

2010 PRINT "DIESEM PROGRAMM GESP 
EICHERT" 

2015 PRINT "NUN GUT IN IHREM GED 
AECHTNIS." 

2020 PRINT j,"SIE KOENNEN DRS PR 
OGRAMM MIT" 

2025 PRINT """GOTO 15"" NEUSTRRT 

EN . " 


■ UOLLEN SIE M 

LERNMODUS 

UOKABELN EINGEBEN 

(NOCH 140 MOEGLICH) 

KORREKTUR UON UOKABELN 

PROGRAMM AUF BAND SPEICHERN 


EEEEEEEEEEEEEEEEEEEEEEEEEE 


3‘ 
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Der ZX 81 als Schaufenster- 
Displaygerät 


Für diesen Einsatzbereich ist der ZX 81 besonders geeignet. Als 
preiswertes, leicht transportables System kann er jederzeit mit 
einem Kassettengerät und einem Schwarzweiß-Fernseher älteren 
Baujahrs ein Schaufenster beleben. Der ZX 81 liefert Werbebot¬ 
schaften und Informationen, die man nicht übersehen kann. 
Texte, Grafiken und Symbole können in verschiedenen Schrift¬ 
größen, Laufschrift oder in Form von Standbildern über den 
Bildschirm flimmern. So ziemlich jedes Produkt erhält erhöhte 
Verkaufschancen durch eine solche Ankündigung. Durch die 
einfache Texteingabe können jederzeit ausgewählte Programme 
und Texte abgerufen werden. So kann mit den Werbeinformatio¬ 
nen z.B. der «Spruch der Woche» auf den Bildschirm gedruckt 
werden, oder es kann auf das Tiefstpreisangebot des Tages auf¬ 
merksam gemacht werden. Das folgende Programm läßt dem 
Benutzer recht große Freiheiten, also z.B. die freie Wahl der 
angezeigten Textzeilen. Eingesetzt werden kann es für Schaufen¬ 
sterwerbung sowohl im Einzelhandel als auch im Dienstlei¬ 
stungsbereich, z.B. für Sonderangebote, Neuheiten, Reiseange¬ 
bote, Servicehinweise, ferner bei Messen, Veranstaltungen, 
Seminaren usw. Die Textzeilen können einzeln eingegeben und 
modifiziert werden. 

Wollen Sie den eingegebenen Text invertieren lassen, also 
eine Wiedergabe Weiß auf Schwarz, müssen Sie etwas Wartezeit 
in Kauf nehmen. Starten Sie das Programm nur mit GOTO 1. 
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SCHAUFENSTER-DISPLAY PROGRAMM 


10 PRINT "TEXT LOESCHEN C.J/N) 

7 

15 INPUT A$ 

20 IF A$<>"U" AND R$ < >"N" THEN 
GOTO 15 
25 PRINT A* 

30 IF A$="N" THEN GOTO 1E3 
35 PRINT "UIEUIELE ZEILEN SOLL 
DER TEXT"..“HABEN: 

40 INPUT Z 

42 LET Z = INT ABS Z 

45 IF Z=0 OR Z >350 THEN GOTO 4 

0 

50 PRINT Z^ , , "OK" 

55 DIM T$ (Z ^ 32) 

50 LET M=Z 
65 LET P=1 
70 DIM X$(32) 

75 DIM Y$(32) 

95 GOTO 1E3 

100 CLS 

101 LET 0=0 

103 PRINT "EINGABE ";P 
105 PRINT ,,"GEBEN SIE DIE TEXT 
ZEILE EIN:" 

110 INPUT A$ 

111 IF R$="" RND 0=1 THEN RETUR 
N 

112 IF A$ = "" THEN GOTO 1E3 

115 IF LEN A$<33 THEN GOTO 130 
120 PRINT "BITTE KUERZEN SIE IH 
RE EINGABE" 

125 GOTO 110 
130 PRINT A$ 

135 PRINT ,i“INVERTIEREN (U^N) 

7 "; 

140 GOSUB 95® 

145 LET F =0 

150 IF L$="U" THEN LET F=NOT F 
155 PRINT L$ 

160 PRINT t j "ZENTRIEREN^ RECHTS- 
, LINKSBUENDIG7" 

165 GOSUB 95® 

170 IF L$="Z" THEN LET A$=X $t T 
O (32—LEN R $) /2) +A$ 

175 IF L$="R" THEN LET A$=X$( T 
O 32 —LEN R$) +A$ 

180 LET Y$=A$ 

185 LET A$=Y$ 

200 IF F=0 THEN GOTO 230 
205 FOR 1=1 TO LEN R$ 

210 LET C =CODE R$(I) 

215 LET C=C+12S 

217 IF CODE A$(IJ>127 THEN LET 
G=C—256 

BBBBBBBBBBBBBBBBBBBBBBBBBB 
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220 LET R$(I)=CHR$ C 

225 NEXT I 

230 LET T$(P)=A$ 

232 IF 0=1 THEN RETURN 
235 LET P=P+-1 
245 GOTO 100 
300 CLS 

305 PRINT "DIE UIEUIELTE ZEILE 
WOLLEN SIE","KORRIGIEREN ? "; 

310 INPUT K 
315 LET K=INT ABS K 
320 IF K =0 THEN GOTO 1E3 
325 IF K > P-1 THEN GOTO 310 
330 PRINT K 
335 PRINT ,,T$CK) 

340 PRINT 
345 LET 0=1 
350 LET S=P 
355 LET P=K 
360 GOSUB 105 
365 LET P=S 
370 GOTO 1E3 
400 CLS 

403 PRINT "STARTEN SIE DEN REKO 
ROER , " , , ,“DRUECKEN SIE DANN NEUL 
INE" 

405 GOSUB 950 
410 SAUE "US" 

415 GOTO 1 

450 FOR 1=1 TO P-l 

455 SCROLL 

460 PRINT T$tl) 

465 IF INKEY $ < >"" THEN GOTO 1E3 

470 FOR U=1 TO G 

475 NEXT U 

480 NEXT I 

485 GOTO 450 

950 IF INKEY $ < >"" THEN GOTO 950 
955 IF INKEY $ = " " THEN GOTO 955 
960 LET L $ = INKEY $ 

965 RETURN 
1000 CLS 

1005 PRINT TAB 3; ’W WOLLEN SIE M 

1010 PRINT TEXT EINGEBEN" 

1015 PRINT ,," KORREKTUR" 

1020 PRINT , " SPEICHERN RUF BR 

ND“ 

1025 PRINT DISPLAY-MODUS" 

1050 PRINT ^j./'UM AUS DEM DISPL 
AY-MODUS INS","MENU ZURUECKZUKEH 
REN r DRUECKEN"^"SIE NEULINE" 

1060 GOSUB 950 

1070 IF L$="T" THEN GOTO 100 
1075 IF L$="K" THEN GOTO 30© 
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1080 XF L$="S" THEN GOTO 4-00 

1085 XF L$ = "D'* THEN GOTO 1100 

1090 GOTO 1050 

1100 CLS 

1105 PRINT “GESCHWINDIGKEIT 

1110 INPUT G 

1115 CLS 

1120 GOTO 450 


■ WOLLEN SIE ■ 


TEXT EINGEBEN 
KORREKTUR 

SPEICHERN RUF BRND 
DISPLAY-MODUS 


UH RUS DEM DISPLRY-MODUS INS 
MENU ZURUECK2UKEHREN,DRUECKEN 
SIE NEULINE 


BEBBEBEBEEEBEEEEEEEEEEEEEE 
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Autokostenanalyse 


Wissen Sie genau, wieviel Ihr Auto kostet? Nicht nur die An¬ 
schaffungskosten und das Benzin, nein, auch Bereifung, Straf¬ 
mandate und Reparaturen. Wenn Sie alle Kosten addieren und 
durch die Anzahl der gefahrenen Kilometer dividieren, können 
Sie eine Überraschung erleben. 

Berechnungen jeder Art sind ja überhaupt ein Haupteinsatz¬ 
gebiet für Mikrocomputer. Besonders bei immer wiederkehren¬ 
den Berechnungsgängen mit wechselnden Zahlen ist der Klein¬ 
computer gegenüber einem Taschenrechner klar im Vorteil. 
Schneller ist der Computer auch dann, wenn es darum geht, 
große Datenmengen zu verarbeiten. Versicherungen und Banken 
kämen ohne Computer nicht mehr aus. Zurück zu unserem Au¬ 
tokostenanalyse-Programm. Die Bedienung ist kinderleicht. Auf 
die Fragen des Computers tippen Sie einfach die entsprechenden 
Zahlen ein. Der jährliche Wertverlust des Fahrzeugs wird übri¬ 
gens ebenfalls in absoluten Zahlen gemessen (z.B. 1200 DM). 
Nachdem Sie alle seine Fragen beantwortet haben, serviert Ihnen 
der ZX*81 Ihre Auto kosten pro Jahr, pro Monat und pro Kilome¬ 
ter. Haben Sie einen Drucker angeschlossen, so können Sie sich 
die gesamte Kostenaufstellung säuberlich ausdrucken lassen. 
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AUTOKOSTENANALYSE 


5 CLS 

10 PRINT TOB 4-; "■ RUTOKOSTENRN 
RLYSE ■** 

15 PRINT j, / "UOLLEN SIE EINEN R 
U5DRUCK (U/N)?" 

20 INPUT Ri 

30 PRINT RT 2,0;"UIE GROSS IST 
DER UERTUERLUST IHRES FRHRZEU 
GES IN DIESEM JRHR?" 

35 INPUT U 

4.0 PRINT TRB 20; U 

4-5 PRINT , , "UIEUIEL GEBEN SIE 
PRO JRHR FUER UERSICHERUNGSPRREM 
IEN AUS?";TRB 20; 

50 IMPUT V 

55 PRINT K) 

60 PRINT ,j "U IE HOCH IST IHRE 
HONflTLICHE",“KFZ-STEUER?";TRB 20 

65 INPUT K 

70 PRINT K 

75 PRINT j ,"GEBEN SIE DIE JREH 
RLICHEN“ , ''KOSTEN FUER GRRRGENMIE 
TE EIN:*' 

30 INPUT G 

35 PRINT TRB 20; G 

90 PRINT , /'UIE HOCH SIND IHRE 
MONATLICHEN KOSTEN FUER AUTOPF 
LEGE7"; 

95 INPUT P 

96 PRINT TRB 20; P 

97 IF CODE Ri =4-7 THEN COPY 
100 CLS 

105 PRINT "UIE HOCH IST DER UER 
SPRUCH IHRESFAHRZEUGS (L/100 KM) 

7 M • 

110 INPUT R 
115 PRINT R 

120 PRINT ,,"GEBEN SIE DEN BENZ 
INPREIS EIN:" 

125 INPUT E 

130 PRINT TRB 20; E 

135 PRINT ,$"GEBEN SIE IHRE URH 
RESKILOMETER- LEISTUNG EIN:";TRB 
20 ; 

14-0 INPUT U 
14-5 PRINT U 

150 PRINT , /'UIEUIEL GEBEN SIE 
PRO JAHR FUER SCHMIERMITTEL AUS? 
”;TAB 20; 

ISS INPUT S 
160 PRINT S 

16S PRINT ,,"GEBEN SIE DIE KOST 




hothhhhhhhhhot 


'UIE HOCH SIND IHRE 
( KRRTEN j SCHNEEKET 
STRRFMRNDRTE ETC 


EN FUER" ,"BEREIFUNG f +UINTERREIF 
EN) EIN:" 

170 INPUT B 

175 PRINT TRB 20;B 

180 PRINT ,,"UIE HOCH SIND IHRE 
JAEHRLICHEN KOSTEN FUER SERUIC 
E UND WARTUNG?" 

185 INPUT C 
190 PRINT TRB 20;C 
195 PRINT , /'UIE HOCH SIND DIE 
JfiEHRL ICHEN REPARATURKOSTEN *? " 
;TRB 20; 

200 INPUT T 

201 PRINT T 

203 IF CODE R£ =4-7 THEN COPY 
205 CLS 
210 PRINT . 

NEBENKOSTEN", 

TEN,ZUBEHOER , 

>?";TRB 23; 

215 INPUT N 
220 PRINT N 
225 LET K=K*12 
230 LET P=P*12 
235 LET U=R*E*U/1O0 

24.0 LET GE=N+U+P+J+T+C+B + S+U+K + 

G 

24.1 PRINT , , , , , , 

24-5 IF CODE Ri <>4-7 THEN CLS 
250 PRINT "AUTOKOSTEN PRO JAHR" 
,TRB 2S-L EN STR$ INT GE;GE;(".0" 
AND GE=INT GE);("0" RND GE*10=I 
NT (GE *10) ) 

255 PRINT TRB 22;”==========" 

257 LET G1=INT (GE/.12)/100 
260 PRINT "MONATLICHE RUTOKOSTE 
N’/TAB 28 —LEN STR$ INT Gl; Gl; 

O" RND G1 =INT Gl);("0" RND Gl*10 
=INT (Gl*10)) 

265 PRINT TRB 22;"==========" 

267 LET G1=INT (GE/J*100)/100 
270 PRINT ''KILOMETERKOSTEN" ; TRB 
28-LEN STRi INT G1;G1;(".0" RND 
G 1=INT Gl); ("0" RND G1*10=INT ( 

Gl*10)) 

275 IF CODE Ri=4-7 THEN COPY 
2B0 PRINT RT 15,0;"NEUE BERECHN 
JNG (U/N) 

285 INPUT R$ 

290 IF CODE R$ =4-7 THEN RUN 
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6.1 Der ZX 81 steuert eine Diashow 

Wenn Sie engagierter Fotograf sind, kennen Sie das Problem 
wahrscheinlich: Man möchte seine Dias wirkungsvoll präsentie¬ 
ren, am besten mit Musik und Text untermalt. 

Da Anlagen für eine Synchronisation von Bild und Text recht 
teuer sind, behelfen sich viele Fotofreunde, indem sie mit einem 
Kassettenrecorder leise Hintergrundmusik abspielen und dazu 
den passenden Kommentar vortragen. Werden die Erläuterun¬ 
gen durch ein Ehepaar oder mehrere Leute, die Teilnehmer der 
gleichen Reise waren, vorgenommen, kann die häusliche Dia¬ 
show leicht zu einem Streitgespräch ausarten. 

Etwas professioneller ist es schon, erklärenden Text und un¬ 
termalende Musik — genau auf die Dias abgestimmt — auf 
Tonband aufzunehmen und Diaprojektor und Band genau 
gleichzeitig zu starten. Dieses Verfahren erfordert aber äußerste 
Präzision. Bei einer Diashow anläßlich einer Pressekonferenz 
über den Sinclair ZX 81 ist mir das nicht gelungen. Der Mann, 
der die Projektoren bediente, fand den Einschaltknopf nicht 
schnell genug, und so verschob sich der Text um genau ein Bild. 
Als auf der Leinwand ein Schimpanse mit dem ZX 81 zu sehen 
war (was beweisen hätte sollen, wie leicht der ZX 81 zu bedienen 

















46 


Steuerungsaufgaben 


Steuerungsaufgaben 


47 


ist), hörte man vom Tonband mit salbungsvoller Stimme: «Der 
Mann, der den Taschenrechner erfand, auf einem Bild mit sei¬ 
nem jüngsten Produkt.» Kein Wunder, daß die anwesenden 
Journalisten das Gerät in guter Erinnerung behielten. 

All das führte zur Überlegung, ob man den Sinclair ZX 81 zur 
Steuerung einer Diashow einsetzen könnte. Ergebnis: Es ist mög¬ 
lich, vorausgesetzt, man schließt ein I/O-Port an. Im Anschluß 
an dieses Kapitel finden Sie ein äußerst komfortables Diasteue- 
rungsprogramm, das für die Verwendung eines I/O-Ports der 
Firma Technomatic gedacht ist. Selbstverständlich können Sie 
auch jedes andere I/O-Port verwenden, nur müssen dann die 
Zeilen 460, 485, 795 und 810 entsprechend den neuen Adressen 
geändert werden. Erfordert der Einsatz Ihres I/O-Ports eine Rou¬ 
tine in Maschinencode, können Sie diese in der REM-Zeile am 
Beginn des Programms ablegen. 

Dann fragt der Computer nach der Anzahl der Dias in Ihrer 
Show. Sollten es mehr als 350 Bilder sein, empfiehlt Ihnen der 
Computer, die Show zu kürzen. Damit Ihnen das leichter fällt, 
müssen Sie das Programm neu starten. Sie haben nun die Wahl 
zwischen zwei Eingabearten. Bei der digitalen Eingabe tippen Sie 
einfach für jedes Dia die Standzeit in Sekunden ein. Der Analog¬ 
modus ist bequemer: Sie schalten den Kassettenrecorder und den 
Diaprojektor ein und drücken einfach eine beliebige Taste (au¬ 
ßer «Break»), wenn das Dia gewechselt werden soll. 

Wenn Sie das I/O-Port bereits mit dem Projektor verbunden 
haben, schaltet er in diesem Modus schon weiter, und Sie können 
das Ergebnis Ihrer Arbeit sofort begutachten. 

Jetzt sollte ich Ihnen erklären, wie der Diaprojektor mit dem 
I/O-Port verbunden wird. Bei Verwendung eines Technomatic- 
Ports gibt der Computer die Steuerungssignale bei Kanal 7 des 
Ports ab. Sie verbinden den Port-Ausgang mit einem Relais (ge¬ 
eignete Typen siehe Anhang) und dieses wiederum mit dem 
Steuerknopf Ihres Projektors. Da endet auch die Hilfe, die ich 
Ihnen geben kann, denn bei der Vielzahl der am Markt erhältli¬ 


chen Typen ist es unmöglich, für jedes Gerät eine Einbauanlei¬ 
tung zu schreiben. Meist wird es am einfachsten sein, wenn Sie 
das Handsteuergerät Ihres Projektors öffnen und den Transport¬ 
druckknopf herausleiten. 

Zurück zur Erläuterung des Programms: Für den Fall, daß Sie 
sich irgendwann während der Eingabe der Standzeiten vertan 
haben, bietet Ihnen das Menü die Möglichkeit zur Korrektur. Zu 
diesem Zweck tippen Sie ein, beim wievielten Dia der Irrtum 
aufgetreten ist. Sie können nun die neue Standzeit eintippen. 
Wenn Sie eine falsche Dianummer erwischt haben, kommen Sie 
durch Eingabe der Zahl 0 wieder zurück ins Menü. 

Sollten Sie den Überblick komplett verloren haben (auch das 
gibt es!), können Sie vom Computer einen Gesamtausdruck ver¬ 
langen. Dafür gibt es zwei Möglichkeiten: komfortabel, wenn Sie 
einen Drucker angeschlossen haben, etwas umständlicher, wenn 
das nicht der Fall ist. Denn dann läßt der ZX 81 alle Daten über 
den Bildschirm laufen. Um Ihnen Augenflimmern zu ersparen, 
können Sie dies mit H anhalten und mit W weiterlaufen lassen. 

Jetzt starten Sie die Show. Sie geben beim Menü die Wahl 5 
ein. Sodann drücken Sie gleichzeitig die Starttaste des Kassetten¬ 
recorders und den Einschaltknopf des Diaprojektors. Sehr sinn¬ 
voll wäre es, änderten Sie das Programm dahingehend, daß der 
Einschaltvorgang der beiden Geräte ebenfalls durch den ZX 81 
gesteuert wird. 

Wenn es nicht funktioniert: Es ist möglich, daß Ihr Diaprojek¬ 
tor einen längeren Impuls braucht, als das Programm abgibt. Das 
ist das gleiche, wie wenn Sie den Knopf der Projektorfernbedie¬ 
nung zu kurz drücken. Man verkürzt in diesem Fall den Pausebe¬ 
fehl in Zeile 805 entsprechend (z.B. durch Erhöhen der Zahl 35) 
und fügt einen weiteren Pausebefehl als Zeile 812 mit genau der 
Länge ein, um die der erste verkürzt wird, so daß die Summe 
beider Pausen der Länge des ersten Pausebefehls entspricht. Bei 
der analogen Eingabe wird der Projektor ebenfalls weitergeschal¬ 
tet, so daß auch hier die Möglichkeit eines zu kurzen Impulses 
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besteht. Um dem abzuhelfen, kann Zeile 460 in Richtung Zeile 
480 verschoben werden (nicht über 480 hinaus, sonst tut sich 
nichts). 

Wahrscheinlich brauchen Sie zum Lesen des vorgehenden 
Absatzes länger als zum Durchführen der eventuell notwendigen 
Änderungen. Innerhalb der Grenzen des ZX81 läuft das Pro¬ 
gramm übrigens sehr genau. 

Sollten Sie zwei Projektoren und eine einfache Überblend¬ 
steuerung besitzen, können Sie dieses Programm ebenfalls mit 
Gewinn einsetzen. 


nannnianM 

DIASTEUERUNGSPROGRAMM 


1 

2 
3 
4- 

5 

6 


RE M 
REM 
REM 
REM 
REM 
REM 


RUF BIT 7 RUF OEM PORT 






10 PRINT RT 6/3; 

15 PRXNT TRB 3; "| 

20 PRINT TRB 2; 

25 PRXNT TRB 3; 

30 PRINT TRB 4; 

35 PRINT TRB 5; 

40 PRXNT TRB 4; 

45 PRINT TRB 3;"_ 

50 PRINT TRB 2; 

55 FOR I = i TO 12 
50 PRINT RT 1/30; 

65 NEXT I 
70 PRINT RT 3/31; 

75 PRINT RT 9,31; 

60 PRINT RT 15 , 14; 

85 PRINT TRB 14; " “ 

90 PRINT TRB 14;" 

95 PRINT TRB 14; " 

100 PRINT TRB 14;" 

105 PRINT TRB 14;"_ 

110 FOR 1=10 TO 20 STEP 3 

115 PLOT 1*2/30-1/3 

12© PLOT 1*2/30+1/3 

125 NEXT I 

130 FOR 1=1 TO 70 

135 NEXT I 

140 GL5 

145 PRINT "UIE UIELE DIRS UMFRS 
ST IHRE*' 

150 PRINT "DIRSERIE 7" 

155 INPUT M 

157 IF M <1 THEN GOTO 155 
160 IF M < =350 THEN GOTO 190 
165 PRINT RT 0/ß; M 5D UIELE DIRS 
KGENNEN 5IE IHREN" 

170 PRINT "ZUSEHERN KAUM ZUMUTE 
N „ . . " 

175 PRINT # /"BITTE KUERZEN SIE 
IHRE DIRSERIE" 

160 STOP 
190 CLS 

192 DIM _ 

195 PRINT TRB 4; MmÖÜM 
200 PRINT DIGITALE EING 

RBE" 

202 PRINT ,,"2> RNRLOGE EINGABE 




4 Der Mikrocomputer ZX 81 
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205 PRINT , ,“3) KORREKTUR" 

207 PRINT , , “4J GESRNTRUSDRUCK" 

200 PRINT , ,"5J PROJEKTION" 

210 PRINT , ,“6> SPEICHERN RUF B 

RNO" 

213 PRINT , , , , "GEBEN SIE IHRE U 

R 215 E IF INKEy$<>"" THEN GOTO 215 
220 IF INKEY$=““ THEN GOTO 220 
225 LET L $ = INKEY $ 

230 IF L$<"1" OR L $ > “ 6 “ THEN GO 
TO 215 
235 CLS 

24-0 IF L$>“1“ THEN GOTO 370 
24-5 PRINT “IN OIESEH MODUS KOEN 
NEN SIE DIE“ 

250 PRINT “EINZELNEN STRNDZEITE 


'GEBEN SIE 


' 1“ THEN GOTO 370 
IN DIESEM MODUS KOEN 


250 PRINT “EINZELNEN STRNDZEITE 
N RLS ZAHLEN" 

255 PRINT “EINGEBEN (IN SEKUNDE 

fcj ^ ÄÄ 

260 PRINT , j "DRUECKEN SIE N/*L,U 
ENN SIE" 

265 PRINT "BEGINNEN UCK-LEN" 

270 IF INKEY*<>"" THEN GOTO 270 
375 IF INKEY * = "•' THEN GOTO 275 
280 IF CODE INKEY*<>118 THEN GO 
TO 270 
285 CLS 

290 FÜR 1=1 TO M 

295 IF I> 7 THEN SCROLL 

300 PRINT "DIR ”;l 

305 IF I> 7 THEN SCROLL 

310 PRINT TRB 3;"STANDZEIT 7” 

315 INPUT S 

320 LET S=INT flßS S 

325 IF S >255 THEN GOTO 315 

330 IF S=0 THEN GOTO 355 

335 IF I> 7 THEN SCROLL 

34.0 PRINT S 

34-5 LET D*(I)=CHR* S 

350 NEXT I 

355 CLS 

360 GOTO 195 

370 IF L*>”2" THEN GOTO 510 
375 PRINT "IN DIESEM MODUS MUES 
SEN SIE NUR" 

380 PRINT "BEI UEDEM DIRWECHSEL 
EINE TASTE" 

385 PRINT " (UEDE AUSSER BREAK S 
SPACE) '• 

390 PRINT "DRUECKEN." 

395 PRINT ,,"SCHALTEN SIE DESHA 
LB PROEKTOR" 

4-00 PRINT "UND EUTL. HINTER6RUN 
DMUSIK EIN.” 

4-05 PRINT , , "UEDESMAL , UENN SIE 
DEM ZX 81 DAS" 

4-10 PRINT "SIGNAL GEBEN , UIRD ER 
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RUCH DEN" 

415 PRINT “PROJEKTOR 
420 PRINT ..“UENN SIE 
NO., DRUECKEN“ !. “SIE“; 


SCHALTEN.“ 
BEREIT SI 


425 PRINT TRB 1S,“N./L“ 

430 LET Z=0 
435 IF INKEY $ < >““ THEN GOTO 435 
440 IF INKEV$="“ THEN GOTO 440 
445 IF CODE INKEY$<>118 THEN GO 
TO 435 


450 FOR 1=1 TO M 
455 CLS 


450 POKE 11000 ,255 

455 PRINT “DIR “;I 

470 POKE 16436,255 

475 POKE 16437,255 

480 IF INKEY $ = “ “ THEN GOTO 4B0 

4S5 POKE 11000,127 

420 LET S=(50+65535-PEEK 16436- 
PEEK 16437*256)/50 
425 LET D$m=CHR$ S 
500 NEXT I 
505 GOTO 355 

510 IF L$>“3“ THEN GOTO 590 
515 PRINT “DIE ZEIT DES ÜIEUIEL 
TEN DIRS" 

520 PRINT “WOLLEN SIE KÖRRIGTER 

EN ?“ 


525 INPUT K 

530 IF K=0 THEN GOTO 355 
535 IF K > M THEN GOTO 525 
540 CLS 

545 PRINT “DIR “;K 

550 PRINT "ALTE ZEIT:“;CODE D$ ( 

K) 

553 PRINT “NEUE ZEIT 7“ 

555 INPUT S 

560 LET 5=INT RBS S 

565 IF S=0 THEN GOTO 355 

570 IF S > 255 THEN GOTO 555 

575 LET D* (K> =CHR$ S 

580 GOTO 355 

590 IF L$>“4“ THEN GOTO 760 
595 PRINT "AUSDRUCK RUF DEM“ 

600 PRINT ,,“1) BILDSCHIRM ODER 


605 PRINT ,,“2) DRUCKER“ 

610 PRINT ,,,,“GEBEN SIE IHRE U 
RHL EIN“ 

615 IF INKEY$= M " THEN GOTO 615 
620 LET R $ = INKEY $ 

625 IF R$ <“1“ OR R$>“2“ THEN GO 
TO 615 
630 CLS 

635 IF R$=“2“ THEN GOTO 720 
640 PRINT “UM DIE RNZEIGE RNZUH 
ALTEN, “ 

645 PRINT “DRUECKEN SIE >H<,UM 
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SIE WEITER-’* 

SS0 PRINT "LAUFEN ZU LASSEN,>U< 

SS5 FOR 1=1 TO 30 
560 NEXT I 
665 CLS 

S70 FOR 1=1 TO M 
675 5CROLL 

660 PRINT "DIR ";I,CODE 
SEKUNDEN" 

685 IF INKEY$="H" THEN GOTO 70® 
690 NEXT I 
695 GOTO 710 

700 IF INKEY$="U" THEN GOTO 690 

705 GOTO 700 

710 GOTO 355 

72® FAST 

725 LPRINT , , , , 

730 FOR 1=1 TO M 

735 LPRINT "DIA " ; I , CODE D$\*I); 
" SEKUNDEN" 

74-0 NEXT I 

74-5 LPRINT , , , , , 

750 SLOW 
755 GOTO 355 

760 IF L$>"5" THEN GOTO ©30 
765 IF INKEY $ < > " " THEN GOTO 765 
770 PRTNT "FUER START DRUECKEN 
SIE N SL" 

775 IF INKEY$="" THEN GOTO 775 
76® FOR 1=1 TO H 
765 CLS 

790 LET L=CODE D$(I> 

795 POKE 11000,255 
60© PRINT "DIR " ;l 
605 PAUSE L #50-35 
©1© POKE 11000,127 
615 NEXT I 
620 GOTO 355 
630 SAUE 
635 GOTO 355 
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6.2 Der ZX 81 steuert eine Modellbahn 

Viele haben die Freude an den kleinen Zügen, die durch eine 
Landschaft in Schreibtischgröße brausen, wiederentdeckt. Wie 
wäre es, dieser alten Idee durch etwas moderne Computer-Tech¬ 
nologie neuen Pfiff zu geben? Für den ZX 81 ist das kein Pro¬ 
blem. Er braucht nur Informationen, wo der oder die Züge ge¬ 
rade sind (am elegantesten wird das durch Magnetschalter und 
einen kleinen, an der Lokomotive befestigten Magneten er¬ 
reicht), und schon kann man elektrische Weichen schalten, 
Signale geben und vieles mehr. Schon mit einem einfachen I/O- 
Port mit je 8 Ein- und Ausgängen gewinnt die Anlage bedeutend 
an Realistik. Mit den 8 Ausgängen könnten beispielsweise 4 
Weichen, 3 Signale und die Beleuchtung eines Bahnhofs oder ein 
Geräuschgenerator angesprochen werden. Sollte also bei Ihnen 
eine längst uninteressant gewordene Modellbahnanlage verstau¬ 
ben, so hätten Sie ein neues interessantes Anwendungsgebiet für 
Ihren ZX 81. 

6.3 Der ZX 81 steuert Disko-Lichteffekte 

Für alle, die gerne Tanzparties bei sich zu Hause veranstalten, 
gibt es eine weitere interessante Einsatzmöglichkeit für den 
ZX 81. Bestücken Sie die Ausgänge eines I/O-Ports mit Leucht¬ 
dioden, können Sie schon durch ein einfaches Programm ver¬ 
schiedene Lichteffekte erzeugen. Ihre Leuchtdioden könnten 
z.B. in verschiedenen Rhythmen blinken oder in Form eines 
Lauflichts aufblitzen. Ersetzt man nun die Leuchtdioden durch 
Relais und schließt Lichtschlangen, Leuchtstrahler und derglei¬ 
chen an, ergeben sich aufregende Effekte. Wenn Sie diese Anlage 
in Kombination mit einer herkömmlichen Lichtorgel einsetzen, 
kann es leicht sein, daß die Gäste Ihrer nächsten Party den 
Eindruck haben, in einem amerikanischen Disko-Tempel zu fei¬ 


ern. 





Aufbau einer Alarmanlage 


Wer hatte nicht schon den Wunsch, sein Haus oder seine Woh¬ 
nung gegen ungebetene Gäste zu schützen. Mit dem ZX 81 geht 
das relativ preiswert. Natürliche Voraussetzung für die Verwen¬ 
dung des Einbruchsicherungs-Programms ist das Vorhandensein 
eines I/O-Ports. Es gibt nun zwei Möglichkeiten: 

1. Sie verlegen eine große Drahtschleife mit Unterbrecherkon¬ 
takten dort, wo ein Eindringling sein Glück versuchen 
könnte, also an Fenstern und Türen; 

2. Sie legen an jedes Bit des I/O-Ports nur einen Schalter. Dies 
hat den großen Vorteil, daß das Programm sofort entscheiden 
kann, wo der Eindringling seinen Weg zu bahnen trachtet. 

Mit einem Ausgabeport kann das Programm natürlich auch 
geeignete Maßnahmen ergreifen, um den ungebetenen Gast so 
rasch wie möglich wieder loszuwerden. In der Folge sehen Sie 
eine Schaltskizze der beiden Möglichkeiten: 

Das einfache lK-Programm für die Dauerüberwachung eines 
Objekts muß natürlich an Ihr I/O-Port angepaßt werden. Sollten 
Sie ein I/O-Port besitzen, das memory-mapped ist, so müssen Sie 
die Zahl 8000 in den Zeilen 10 und 15 auf den Speicherplatz 
ändern, über den Ihr Port angesprochen wird. 
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Bei einem Port, das I/O-mapped ist, gehen Sie am besten nach 
Herstellerangaben vor und geben zuerst die benötigte Maschi¬ 
nenroutine ein, wobei Sie im Programm jedesmal den Befehl 
PEEK 8000 mit einem Aufruf des Maschinenprogramms vertau¬ 
schen. Das Programm kann sowohl im SLOW MODE als auch in 
FAST MODE gefahren werden. Unser Programm ist daraufhin 
ausgelegt, daß die Schalter im Ruhezustand offen sein sollen. 
Erfordert Ihre Anwendung jedoch, daß die Schalter im Ruhezu¬ 
stand geschlossen sein sollen, ändern Sie in Zeile 10 die Zahl 255 
auf 0. 

I Wie schon erwähnt, können Sie mit den verbleibenden Ausga¬ 

bekanälen einige lustige Dinge anfangen, die dem Einbrecher 
das Leben schwer machen. So kann die Beleuchtung eingeschal¬ 
tet werden, ein Band mit Hundegebell und Polizeisirenen ertö¬ 
nen, und besonders gewiefte Bastler könnten dafür sorgen, daß 
der ZX 81 bei der Polizei anruft und den Vorfall meldet. Egal, 
was Sie tun! Wichtig ist besonders eines, nämlich, daß der ZX 81 
nie direkt an das Stromnetz angeschlossen werden darf, sondern 
ihm die benötigte Energie nur über eine möglichst große Puffer¬ 
batterie zugeführt werden sollte. Denn jedes Alarmsystem ist nur 
so gut, wie es Stromausfälle überdauert, und um den ZX81 
lahmzulegen, genügt ein Stromausfall von Sekunden. Auch die 
Peripheriegeräte der Anlage sollten durch Batterien oder Puffer- 
Akkus gespeist werden. 
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ALARMPROGRAMM 


5 LET Z=0 

10 IF PEEK 8000=255 THEN RUN 
15 LET fi=2*PEEK 8000 
30 LET fl=INT <R/2) 

25 LET B = INT (R/2) 

30 LET Z=Z+i 

35 IF R-2*B<>0 THEN GOTO 20 
-10 PRINT -EINBRUCH BEI POSITIO 

N "; z 
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«Der Computer allein bedeutet noch nicht Informations- und 
Datenverarbeitung. Für die Informationsindustrie ist der Com¬ 
puter ungefähr das, was für die elektrifizierte Industrie die zen¬ 
trale Kraftstation ist», meint Peter Drucker in seinem 1968 er¬ 
schienenen Buch «The Age of Discontinuity». 

Trotz dieses beruhigenden Statements fühlen sich viele Bürger 
verunsichert, wenn sie hören, welche gewaltigen Datenmengen 
über jeden einzelnen Menschen verfügbar sind, Datenmengen, 
deren Speicherung und Verarbeitung ohne Computer nicht mög¬ 
lich wäre. Bei fast allen Tätigkeiten, die Sie tun, hinterlassen Sie 
Daten, den sogenannten Datenschatten. Egal, ob Sie nun ein 
Girokonto eröffnen, etwas auf Raten kaufen, etwas mit Kredit¬ 
karte bezahlen oder ein Strafmandat hinter dem Scheibenwi¬ 
scher finden, Daten über Sie werden in zentralen Datenbanken 
sorgsam aufbewahrt. Computer leisten als elektronisches Archiv 
wertvolle Hilfe. Die Technik ist nahezu perfekt, am Menschen 
selbst wird es jetzt liegen, wie weit er diese Informationsmöglich¬ 
keit maßvoll und sinnvoll ausnützt und einsetzt. Wie praktisch es 
sein kann, mit dem Computer auf größere Datenmengen rasch 
Zugriff zu haben, beweist Ihnen am besten das folgende 
Programm. 

Unser Archivprogramm zeichnet sich vor allem dadurch aus, 
daß nur jeweils so viel Speicher verbraucht wird, wie tatsächlich 
Eingaben gemacht wurden. Damit wird vermieden, daß unnötig 
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eine Menge an leeren Variablen aufs Band mit abgespeichert 
wird. Dies ist bei allen Programmen der Fall, bei denen zu Be¬ 
ginn ein fixes Array dimensioniert wird. Beim folgenden Pro¬ 
gramm wurde das umgangen, indem zu Beginn eine leere String- 
Variable definiert wird, die jeweils um die Länge der Eingabe 
vergrößert wird. Damit werden auch die Lade- und Speicherzei¬ 
ten erheblich verkürzt. 

Darüber hinaus ergibt sich der Vorteil, daß dieses Programm 
auf jede Speichergröße zwischen 8K und 64K zugeschnitten wer¬ 
den kann. Dies wird durch Veränderung der Zeile 65 erreicht. 
Man ändert dabei den Wert 12 000 (der in unserem Listing in 
Exponentialschreibweise als 12E3 angegeben ist) auf einen Wert, 
der der Anzahl der freien Bytes minus 4000 entspricht, wobei auf 
Tausender abgerundet wird. Die Anzahl der Zeichen pro Zeile 
wurde beim vorliegenden Programm mit 25 festgelegt. Dies ist 
jedoch vom Benutzer jederzeit zu ändern. Der Schlüssel dafür 
liegt in Zeile 40, wo es heißt, LET X = 49. Die Zeilenlänge wird 
nun justiert, indem Sie der Variablen X eine Zahl zuweisen, die 
der doppelten Zeilenlänge minus 1 entspricht. 

Kurz noch einige Worte zur Bedienung des Programms. Ge¬ 
dacht ist das Programm zur Speicherung von näheren Informa¬ 
tionen über Bücher, Briefmarken, Dias usw. Sie gehen nun fol¬ 
gendermaßen vor: Nachdem Sie die Option «Eingabe» gewählt 
haben, erfreut Sie der ZX 81 durch die Ausgabe einer Kennzahl. 
Diese Kennzahl ist wichtig, um bei einem eventuellen Tippfehler 
in der folgenden Eingabe Korrekturen vornehmen zu können. 
Dann fragt der Computer nach dem Titel, und nachdem Sie also 
nun beispielsweise einen Buchtitel eingegeben haben, wirft der 
Computer die Frage nach dem Kommentar aus. Der Kommentar 
ist der Text, um den es eigentlich geht, die Informationen, die Sie 
speichern wollen. Der Kommentar kann so viele Zeichen haben, 
wie vorher mit der Variablen X festgelegt wurde. Beendet wird 
die Eingabe durch Drücken von NEW LINE. Dann erscheint 
wieder eine Kennzahl und die Frage nach einem neuen Titel. Sie 
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können nun beliebig lange so weitermachen. Um in das Menü 
zurückzukehren, drücken Sie einfach NEW LINE. Korrigiert 
wird eine Eingabe durch Wählen der Option «Korrektur» und 
anschließendes Eintippen der Kennzahl. Sollten Sie sich bei der 
Kennzahl vertan haben, genügt die Eingabe von NEW LINE, um 
wieder ins Menü zurückzukommen und keine Daten zu verlie¬ 
ren. Entschließen Sie sich dagegen zur Änderung, müssen sowohl 
Titel als auch Kommentar neu eingetippt werden. Wie sucht man 
nun nach einer Eingabe? Sie wählen die Option «Suchen», be¬ 
antworten die Frage, ob Sie nach dem Titel oder der Kennzahl 
suchen wollen, und geben dann das Entsprechende ein. In Sekun¬ 
denschnelle fischt Ihnen der Computer die passenden Daten 
heraus. Haben Sie sich für das Suchen nach dem Titel entschlos¬ 
sen, haben Sie noch einen zusätzlichen Vorteil. Der Computer 
findet den gewünschten Eintrag auch dann, wenn Sie nur einen 
Teil des Titels wissen, z.B. die ersten drei Buchstaben. Befindet 
sich der Teil, an den Sie sich noch erinnern können, in der Mitte 
des Titels, so können Sie die fehlenden Zeichen durch Eingabe 
von Punkten ersetzen. Suchen Sie z.B. nach Informationen zum 
Buch «12 wichtige Schritte zum Erfolg», können sich aber abso¬ 
lut nicht mehr daran erinnern, ob die notwendigen Schritte zum 
Erfolg 11 oder 12 an der Zahl sind, so ersetzen Sie die beiden 
ersten Zeichen einfach durch Punkte, so daß Ihre Eingabe nun 
folgendermaßen aussieht: «.. wichtige Schritte zum Erfolg». Na¬ 
türlich könnte Ihre Eingabe auch so aussehen: «.. w». Da die 
Wahrscheinlichkeit relativ klein ist, daß ein anderes Ihrer Bü¬ 
cher an der gleichen Stelle im Titel einen Zwischenraum und ein 
«w» hat, kann man annehmen, daß Ihnen der Computer den 
Eintrag auswirft, nach dem Sie suchen. Sollte es wider Erwarten 
mehr Titel mit diesem Merkmal geben, so druckt Ihnen der 
Computer alle Titel mit diesen Merkmalen auf den Bildschirm. 
Dies läßt sich auch anders nutzen. Wollen Sie beispielsweise alle 
Bücher mit dem Anfangsbuchstaben A ausgedruckt, so tippen 
Sie einfach A ein. Der Computer druckt Ihnen dann alle Titel, 
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die mit dem Buchstaben A beginnen, auf den Bildschirm und 
fragt Sie, ob Sie eiilen Ausdruck wünschen. Sollten sich in Ihrer 
Bibliothek mehr Titel mit dem Anfangsbuchstaben A befinden, 
als auf einen Bildschirm passen, so wird zuerst der Ausdruck 
angefertigt, der Bildschirm gelöscht und die nächste Seite 
ausgeworfen. 

Wichtig: Wenn Sie dieses Programm das erstemal benutzen, 
müssen Sie es mit RUN 20 starten. 


hhhhhhhhhhhot 

ARCHIVPROGRAMM 


10 GOTO 1005 

4-0 LET X =4-9 

4-5 LET Y = INT (Xs3) 

50 LET A$ = "" 

55 DIM T$(Y + 1) 

60 LET P=0 

65 LET M=INT ( 12E37CX + 1J ) 

70 LET K =100 
75 LET E = 120 
80 LET X$=" 

85 LET Q=M+1 
90 GOTO 1005 

100 IF INKEY$<) MM THEN GOTO K 
105 XF INKEY$="" THEN GOTO 105 
110 LET L $ = INKEY$ 

115 RETURN 
120 INPUT K* 

125 IF LEN K XY +2 THEN GOTO 155 
14-0 PRINT "BITTE KUER2EN SIE DI 
E EINGPBE" 

14-5 SCROLL 
150 GOTO E 
155 LET T$=K$ 

160 PRINT T* 

165 RETURN 

180 PRINT "SUCHE NACH "; fKENNZ 
RHL U RND L$="K") -f ("TITEL" RND L$ 
= "T") 

185 RETURN 
200 CLS 

202 PRINT "SUCHE NACH KENNZAHL 
ODER TITEL?“ 

205 GOSUB K 

210 IF L$< > "K " AND L$<>"T" THEN 
GOTO 205 
c o» s 

220 GOSUB 180 
225 PRINT 

230 IF L*="K" THEN GOTO 4-60 
235 PRINT "GEBEN SIE DEN TITEL 
EIN" 

24-0 INPUT K$ 

24-5 LET L=LEN K* 

250 IF L>Y+1 THEN GOTO 24-0 
255 FOR 1=1 TO L 

260 IF K $ ( I)= " « " THEN LET K$(I) 


265 IF K*(I) < > 1 
270 NEXT I 
272 LET B=I 
275 CLS 
280 GOSUB 180 


THEN GOTO 271 
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285 PRINT K* 

29® PRINT 
295 LET Z=® 

30® FAST 

305 FOR 1=1 TO P STEP X + l 
310 IF A$(I TO I+Y) <B TO L*=K$< 
B TO L> THEN GOSUB 375 
315 NEXT I 
32® SLOU 

325 XF Z THEN GOTO 34-0 
330 PRINT NICHTS GEFUNDEN M" 

34-0 PRINT RT 21/0; "HfiRDCOPY Cü/ 
N) ’?" 

34-5 GOSUB K 

350 PRINT RT 21,0;X$ 

355 IF L$="U" THEN COPY 
360 PRINT RT 21,0;"FUER MENU N/ 
L" 

365 GOSUB K 
370 GOTO 1E3 
375 LET Z=Z + 1 

380 PRINT INT (1/(X + l) +1) ;TRB 4- 
; R$ (I TO I+Y) ;TRB 4-;A$(I+Y + l TO 
I+X) 

385 IF Z/8<>INT (Z/8> THEN RETU 
RN 

390 SLOU 

395 PRINT RT 21/0j"HARDCOPY <U/ 
N) ?" 

4-00 GOSUB K 

4-®5 PRINT RT 21/0;X$ 

4-1© IF L*="U" THEN COPY 
4-15 PRINT RT 21,0; "FUER WEITER 
N/L" 

4-20 GOSUB K 
4-25 FRST 

4-3© FOR U=2 TO 21 
4-35 PRINT RT I,0;X* 

4-4-0 NEXT U 

4-4-5 PRINT RT 2/®; 

4-50 RETURN 

4-60 PRINT "GEBEN SIE DIE KENNZR 
HL EIN:"; 

4-65 INPUT Z 

4-7© IF NOT Z THEN GOTO 1005 

4-75 IF Z > O —M THEN GOTO 4-65 

4-80 PRINT Z 

4-83 LET U=*X+I> +Z-X 
4-85 PRINT 

4-9© PRINT R$(U TO U+YJ , R* (U+Y + 1 
TO J+X) 

4-95 PRINT RT 7,0; "HARDCOPY CU/N 
) 7 " 

500 GOSUB K 

505 PRINT RT 7,0;X$ 

510 IF L$="J" THEN COPY 

515 PRINT RT 7/0;"FUER MENU N/L 
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52® GOSUB K 
525 GOTO 1©05 
54-0 CLS 
54-5 SCROLL 
550 SCROLL 

555 PRINT "EINGABE ";Q-M 

560 SCROLL 

565 PRINT "TITEL:" 

567 SCROLL 
570 GOSUB E 

572 IF CODE T$=0 THEN GOTO 1E3 
575 LET E$=Ti 
58© SCROLL 

585 PRINT "KOMMENTAR." 

587 SCROLL 
590 GOSUB E 

593 IF CODE T*=® THEN GOTO IE3 
70® LET A$=A$+E*+T$ 

705 LET P=P+X+1 
710 LET M=M—1 

715 IF NOT M THEN GOTO 1E3 
730 GOTO 54-5 
74-0 CLS 

74-5 PRINT "UNTER WELCHEM NAMEN 
WOLLEN SIE"/"DIESES PROGRAMM RBL 
EGEN?" 

750 INPUT K$ 

755 IF K* = "" THEN GOTO 1005 
760 CLS 

765 PRINT "DIESES PROGRAMM IST 

UNTER DEM"/"NAMEN .RBG 

ELEGT." 

770 PRINT //"STARTEN SIE DEN RE 
KORDER/","DRNN N/L" 

775 GOSUB K 
780 CLS 
785 SAUE K$ 

790 GOTO 1005 
800 CLS 

803 PRINT "GEBEN SIE DIE KENNZR 
HL EIN:" 

8©5 INPUT Z 

307 IF Z=0 THEN GOTO 1005 
810 IF Z >© —M THEN GOTO 805 
815 CLS 

820 PRINT "KENNZAHL: ";Z 

325 PRINT 

827 LET U=Z*4.0-39 

830 PRINT fl$(J TO J+Y) , A$(U+Y + 1 
TO Ü + X) 

335 PRINT 

84.0 PRINT "GEBEN SIE DEN NEUEN 
TITEL EIN" 

84-5 INPUT K$ 

350 IF LEN K*>Y+i THEN GOTO 84-5 
855 IF K $ = "" THEN GOTO 1005 
860 PRINT K % 




5 Der Mikrocomputer ZX 81 














66 


Der ZX 81 als elektronisches Archiv 


HHHnHnOT 


865 PRINT 

870 PRINT "GEBEN SXE DEN KÖNNEN 
T RR EIN: " 

875 LET T$=K$ 

88© INPUT K* 

885 IP LEN K*>Y+1 THEN GOTO 880 
890 IP K $ = " " THEN GOTO 1005 
895 PRINT K % 

900 LET R*(U TO U+Y>=T* 

905 LET T$=K$ 

910 LET R$(J+Y+1 TO U+X) =T$ 

QIC ri C 

920 GOTO 1005 
925 CLS 

930 POR 1=1 TO P STEP X+l 

9*0 PRINT L INT (I/(X+1.U1);TRB * 
j R$ (I TO I+Y) 

94-5 SCROLL 

950 PRINT TRB *;R$CI+Y+1 TO I+X 


) 


955 IP INKEY*="H" 

960 NEXT I 

962 SCROLL 

965 GOTO 360 

970 IP INKEY* <>"14’ 

0 

975 GOTO 960 
1000 PRST 
1005 CLS 
1010 SLOU 

1015 PRINT TRB 3; "1 


THEN GOTO 970 


THEN GOTO 97 


WOLLEN SIE 


1020 

1025 

1030 

1035 

10*0 

ND" 

104-5 

1070 

1075 

1080 

1085 

1090 

1095 

1100 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT 
GOSUB K 
IP L* = 
IP L* = 
IP L* = 
IP L* = 


GOTO 1070 


, "EXNGRBE" 

, "GESRMTUEBERSICHT" 

►"SUCHE" 

, "RBSPEICHERN RUP BR 
, "KORREKTUR" 


M E" 

THEN 

GOTO 

54-0 

"G" 

THEN 

GOTO 

925 

«• Q «« 

THEN 

GOTO 

200 

"R" 

THEN 

GOTO 

7*0 

"K" 

THEN 

GOTO 

800 


■ WOLLEN SIE ■ 
EINGRBE 

GESRMTUEBERSICHT 
SUCHE 

RBSPEICHERN RUP BRND 
KORREKTUR 
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Der ZX 81 als elektronischer Termin¬ 
kalender 


Vor kurzem flatterte mir der Prospekt eines Versandhauses auf 
den Schreibtisch. Auf vier bunten Seiten wurde «ein unentbehr¬ 
liches Hilfsmittel für den gestreßten, gehetzten Erfolgssüchtigen 
unserer Zeit» angeboten. Beim angepriesenen Gerät handelt es 
sich um eine Art Superwecker. Bis zu 10 Termine je Woche 
können eingetippt werden, und der gestreßte Erfolgssüchtige 
wird durch lautes Piepen und Blinken der Anzeigezeile des Gerä¬ 
tes darauf aufmerksam gemacht. Nun sind zehn Termine je Wo¬ 
che für die wirklich Erfolgreichen nicht besonders viel, und auch 
der stolze Preis des Geräts veranlaßte mich, darüber nachzuden¬ 
ken, ob man nicht auch den ZX 81 für solche Aufgaben verwen¬ 
den könnte. Das Ergebnis war das Programm am Ende dieses 
Kapitels. Auch wenn Sie sich entschließen, Ihre Terminplanung 
weiterhin mit Terminkalender und Kugelschreiber zu führen, 
interessiert es Sie vielleicht, daß die Lösung von Zeitplanungs¬ 
aufgaben ein weiteres wichtiges Gebiet der Kleincomputeran¬ 
wendung ist. Am bekanntesten ist die Netzplantechnik, die in 
den sechziger Jahren von der NASA für ihre Mondlandeprojekte 
erfunden worden ist. Und weil die Methode gut war, wurde sie 
zunehmend auch von Wirtschaft und Industrie übernommen. Zu 
fast jedem Computer gibt es heute schon ein Netzplanprogramm 
(in England existieren auch zwei Programme für den ZX 81; bei 
einem Test stellte sich allerdings heraus, daß beide unbrauchbar 
sind). Warum sich die Terminplanung mit Computer durchge- 
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setzt hat, liegt auf der Hand. Termine können optimal koordi¬ 
niert und überwacht werden. Zurück aber wieder zu unserem 
Terminkalenderprogramm, das einige Besonderheiten aufweist: 

Ist ein Tag bereits «ausgebucht» (Speicherung von bis zu zehn 
Terminen am Tag ist möglich), so macht das Programm Vor¬ 
schläge, an welchem anderen Tag der Termin stattfinden könnte. 
Das Programm ist sehr benutzerfreundlich geschrieben und zeigt 
dem Anwender alle Bedienungsschritte leicht verständlich an. 
Zu Beginn des Programmlaufs wird ein Menü ausgedruckt, wo¬ 
bei der Benutzer unter den Möglichkeiten 1: Programm initiali¬ 
sieren (wird verwendet, um alle Daten zu löschen), 2: Programm 
auf Band speichern, 3: Übersicht (dabei wird der Wochentermin¬ 
kalender in grafischer Form ausgedruckt), 4: Termineingabe 
(dies erfolgt in Form einer Bezeichnung des Tages und der Uhr¬ 
zeit) wählen kann; mit 5: Tagesübersicht lassen sich alle Termine 
eines bestimmten Tages ausdrucken; mit 6 kann korrigiert wer¬ 
den; mit 7 wird ein Termin gelöscht. Die Option 8 erfordert 
einen Printer. Auf diesem werden alle Daten einer gesamten 
Woche in leicht lesbarer Form ausgedruckt. Die Bezeichnung 
eines Termins darf bis zu 32 Zeichen lang sein. 

Wichtig ist auch, daß die REM-Zeilen eingegeben werden. 
Besonders Zeile 1 hat eine wesentliche Funktion. Mit Hilfe des 
ersten Zeichens in dieser Zeile entscheidet der Computer, ob das 
Programm bereits benutzt, also mit Daten gefüllt wurde, oder 
nicht. Hoffentlich hilft Ihnen das Programm, Ihre Zeitprobleme 
zu bewältigen. 
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TERMINKALENDERPROGRAMM 


1 REM ■■■■■■■■■■■ 

2 rem pOOrrTeoToi <■ 

3 REM ■ S TRRTEN _■ 

4- REM 

5 XF NOT PEEK ISS14 THEN GOTO 
8E3 

10 DIM (7, 10,4-2* 

15 DIM T C73 

2© LET B $ =' ‘ MOD IHIDC3FRSRSO " 

25 DJM T$(7,10A 
30 LET T$(13="MONTflG" 

35 LET T$(2)="DIENSTRG M 
4-0 LET T$ (33 ="MITTWOCH" 

4.5 LET T$(4) s^DÖNNERSTfiG" 

50 LET T$(53="FREITRG" 

55 LET T$ (6) ="SPMSTRG" 

60 LET T$ (7) = ,f SONNTRe" 

65 LET FL=1 
70 LET W=FL 
75 LET G = 1 
95 POKE 16514,0 
100 GOTO 8E3 

2Ö0 PRINT ,,"MO DI MI DO FR 
SR 50" 

205 FÜR 1=1 TO 7 

210 LET Y=I*4-4 

215 PRINT RT 4,Y; »" 

220 FOR 0 = 1 TO 10 

225 PRINT RT JU,Y;i i M 

230 NEXT O 

235 NEXT I _ 

24^print 

255 FOR 1=1 TO 7 
260 LET Y=X*4-4 
265 FOR 0=1 TO TCIJ 
270 PRINT RT 15-0,Y; 

275 NEXT ü 
260 NEXT I 

265 PRINT RT 20,0;"FUER MENU DR 
HECKEN SIE N/L" 

290 IF INKEY $ < > " " THEN GOTO 290 
295 IF INKEY $ = " " THEN GOTO 295 
300 GOTO SE3 

1000 PRINT “FUER WELCHEN TAG UOL 
LEN SIE","EINEN TERMIN UORMERKEN 

r> •• 

1005 INPUT E* 

1006 IF E$ ="" THEN GOTO SE3 
1010 G05UB 7E3 

1015 CLS 

1075 PRINT "FUER ";T$(E3;" SIND 
";T(FA;" TERMINE","UORGEMERKT" 
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1080 IF T(F)<10 THEN GOTO 1200 
X©35 PRINT AT 3,0;"SIE SOLLTEN S 
ICH FUER ";T*(F) 

1090 PRINT ,,"BESSER NICHTE HEHR 
UORNEHMEN." 

IOG5 PRINT , /'VERSCHIEBEN SIE DE 
N TERMIN DOCH" 

HO© PRINT , , “RUF 

1105 FOR 1=1 TO 10 

1110 FOR 0=1 TO 7 

1115 IF T(U) <1 THEN GOTO 1130 
1120 NEXT U 
1125 NEXT I 

1130 IF 1 = 10 AND U =7 THEN PRINT 
"NRECHSTE WOCHE." 

1135 IF I<10 THEN PRINT T$CU) 
114-0 FOR 1=1 TO 200 

114-5 IF INKEY * < > " " THEN GOTO SE3 

1150 NEXT I 

1155 GOTO 6E3 

1200 LET G*T(Fi+1 

1203 FOR 1 = 1 TO T CF) 

1205 PRINT R*(F,I,1 TO 31);TAB 1 
0; "VON " ;A$CF,I,32 TO 36);" BIS 
'\;R$(F,I,37 TO ) 

1210 NEXT I 

1215 PRINT AT 21,0;"GEBEN SIE DE 
N NEUEN TERMIN EIN: " 

1220 LET TiF)=T(F)+l 
1225 INPUT R $ 

1230 SCROLL 

1235 IF LEN R$<32 THEN GOTO 1260 
154-0 PRINT "BITTE KUERZEN SIE IH 
RE EINGABE ** 

124-5 SCROLL 
1250 GOTO 1215 
1260 PRINT R* 

1265 LET A * ( F , G 1 TO ) =R* 

1270 SCROLL 

1272 FOR 1=1 TO 2 

1275 SCROLL 

1260 IF 1=1 THEN PRINT "BEGINNZE 

IT : " ; 

1263 IF 1=2 THEN PRINT "ENDZEIT: 
1265 INPUT R* 

1290 IF LEN R*<>5 THEN GOTO 1265 
1295 IF R*C3)<>"; M THEN GOTO 126 

5 

1300 PRINT R* 

1305 IF 1=1 THEN LET A*(F,G,32 T 
O ) =R* 

1310 IF 1=2 THEN LET A$fF,G,37 T 
O ) =R$ 

1315 NEXT I 
1320 FAST 
1325 C-LS 

1330 FOR 1=1 TO T(F) 
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1335 LET K*=A*(F„I) 

134-0 FOR U=I TO T CF) 

134-5 IF A$(F,U,32 TO 36) >K$(32 T 
O 36) THEN GOTO 1365 
1350 LET A$(F,I)=A*(F,U) 

1355 LET A*(F,U)=K$ 

1360 LET K$=9$CF,I) 

1365 NEXT U 
1370 NEXT I 
1375 SLOU 

1360 PRINT "IHR TERMINPLAN FUER 
" ; T$ CF) ; **; " 

1355 PRINT 

1300 FOR 1=1 TO T VF) 

1395 PRINT A$(F,I,1 TO 31);TAB © 
; "VON fl$ (F, 1,32 TO 36);" BIS " 
; R* CF , I I 37 TO ) 

14-00 NEXT I 

14-03 IF NOT FL THEN RETURN 
14-05 POKE 164-16,0 

14-1© PRINT AT 23,0; "FUER MENU NE 
ULINE" 

14-15 IF INKEY*<>"" THEN GOTO 14-1 

5 

14-20 IF INKEY* ="" THEN GOTO 14-20 
14-25 CLS 

14-30 POKE 164-16,2 
14-35 GOTO 8E3 

200© PRINT "FUER WELCHEN TAG UOL 
LEN SIE EINEUEBERSICHT?" 

2005 INPUT E$ 

2010 IF E*="" THEN GOTO SEE 

2015 GOSUB 7E3 

2020 CLS 

2025 GOTO 1330 

3000 PRINT "AN WELCHEM TAG WOLLE 
N SIE EINEN TERMIN ";("KORRIGIER 
EN" AND W)+("LOESCHEN" AND NOT U 

) +” ?" 

3005 INPUT E* 

3006 IF E * = "" THEN GOTO SE3 
3010 GOSUB 7E3 

3012 IF NOT TCF) THEN GOTO 3100 

3015 LET FL =0 

0020 CLS 

302-5 GOSUB 135© 

3030 LET FL =NOT FL 
3331 SCROLL 
3032 SCROLL 

3035 PRINT AT 20„0;"WELCHEN TERM 
IN WOLLEN SIE",("AENDERN?" AND U 
> -r ("LOESCHEN?" AND NOT W> 

304-0 INPUT TA 

304-5 IF TA >T CF) OR TA < 1 THEN GOT 
O 304-0 

304-7 IF NOT W THEN RETURN 
3050 SCROLL 
vJ0o5 SCROLL 
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THEN GOTO 8E3 
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3060 PRXNT flT 20,0; R$ CF,TR, 1 TO 
-31); TOB 0; "UON ";R$CF,TR, 32 TO 3 
6) ; " BIS ";R$<F,TB,37 TO ) 

3065 SCROLL 

3070 SCROLL 

3075 LET TVF)=T(F)-i 

3060 LET G =Tß 

3065 GOTO 1215 

3100 CLS 

3105 PRINT M FUER DIESEN TAG IST 
NOCH KEIN","TERMIN UORGESEHEN" 

3110 FOR 1=1 TO 50 
3115 IF INKEY$<>' 

3120 NEXT I 
3125 GOTO 8E3 
4-000 LET U=0 
4-005 GOSUB 3E3 
4-010 LET U=NOT U 

4-015 LET fi* lF,Tft) ="6ELOESCHT" 

4020 GOTO SE3 
5000 FAST 
3005 LPRINT 

5010 FOR 1=1 TO 7 

5011 IF T CI) =0 THEN GOTO 504-0 

5015 LPRINT / / / ,T$ 1‘U ; : 

5017 LPRINT 
5020 FOR U = 1 TO T C I) 

5025 LPRINT R$ fI,J,1 TO 31);TRB 
0; "UON M ;R$tT,J,32 TO 36);" BIS 
M ;fl*(I,J,37 TO ) 

5©30 NEXT ü 
5035 LPRINT 
504-0 NEXT I 
304-5 SLGU 
5350 GOTO 3E3 
7003 FOR 1=1 TO 7 
7305 LET B=I*2-1 

7©1© IF E$=B$(B TO B-fl) THEN GOT 
Q 7030 
7015 NEXT I 
7320 LET F=0 
7025 GOTO 7035 
7330 LET F=I 
7035 IF F THEN RETURN 
704-0 PRINT ../'GEBEN SIE NUR DIE 
BEIDEN ERSTEN BUCH5TRBEN DES GEW 
UENSCHTEN"/'TflGES EIN/* 

704-5 INPUT E$ 

7050 GOSUB 7E3 
7055 RETURN 

3000 CLS - 

PRINT 


3005 
3010 PRINT 
6015 PRINT 
S020"p7?xSfF 




MENU"yTRB 31;"S 


* 
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S04.5 PRINT "*";TRB 31;'**" 

8050 PRINT , *| 3) UEBERSICHT"; TRB 

31; ** I" 

8055 PRINT *'* ";TRB 31; " *" 

806© PRINT "I 4-3 TERNIMEINGRBE" ; 
TRB 31; " f" 

8065 PRINT "|";TBB 31;"*'* 

S07© PRINT "I 5) TRGESUEBERSICHT 
''; trb 31; '* ■** 

8075 PRINT *'| "; TRB 31;"*'' 

6030 PRINT "I 6) KORREKTUR";TRB 

31' ** *" 

6085 PRINT ”1";TRB 31;"*" 

8090 PRINT "1 7) TERMXNLOESCHUNG 

*• - ypg 31; ** |" 

8892 PRINT "* ''; TRB 31;''*'' 

3095 PRINT 'J 8) GESRHTRUSDRUCK 
RUF PRINTER r # 

3893 PRINT 

8100 LET L*=INKEY$ 

3110 IF L$ = '"' THEN GOTO ©100 
8120 IF L$<"1" OR L$>"8" THEN GO 
TO 3100 

3125 CLS 

6130 IF L$="l" THEN GOTO 908© 
3135 IF LJ = ,, 2" THEN GOTO 9500 

314-0 IF L$ = *'3'' THEN GOTO 280 

314-5 IF L $ = *'4-'' THEN GOTO 1E3 

3150 IF L$ = ,, 5" THEN GOTO 2E3 

3155 IF L$ = "©'' THEN GOTO 3E3 

8160 IF L*="7" THEN GOTO 4-E3 
3165 GOTO 5E3 

9080 PRINT "WOLLEN SIE WIRKLICH 
ALLE DATEN" , "LOESCHEN CU/N) 7*' 
9085 INPUT L$ 

9010 IF L$<>"U" THEN GOTO 3E3 
9015 GOTO 10 

9508 PRINT "ALS WIEUIELTE DRTEI 
WOLLEN SIE" j "DIESES PROGRAMM RBL 

EGEN 7" 

9503 PRINT "<0 FUER MENU)" 

9505 INPUT R 

9507 IF NOT R THEN GOTO 8E3 
9518 LET A=INT ABS B 
9515 PRINT R 

9520 PRINT j *"DIESES PROGRAMM IS 
T UNTER DEM" 

9525 LET 5$ = 'T"+STR$ R 

9530 PRINT "NAMEN ..RBG 


8025 PRINT "* 1) PROGRAMM INITI 

LISIEREN 

8030 PRINT l7 | "; TRB 31;"*" 

SÖ35 PRINT "I 2) PROGRAMM RUF B 
HD";TRB 31; "J" 

804-0 PRINT "* SPEICHERN"; TRB 

31; " I" 
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ELEGT«” 

9535 PRINT j , "5TRRTEN 515 DEN RE 
CORDER UND M /'DRUECKEN SIE DRNN N 
EULINE" 

954.® IF INKEY $<>"" THEN GOTO 954. 
0 

954-5 IF INKEY" THEN GOTO 954-5 
9550 SfiUE S$ 

9555 GOTO 8000 


HO DI MI DO FR SR SO 



FUER MENU DRUECKEN SIE N/L 


c 

MENU 

I* 

PROGRAMM INITIALISIEREN 

2) 

PROGRAMM RUF SAND 

SPEICHERN 

3) 

UEBERSICHT 

4.) 

TEMINEINGABE 

5) 

TAGESUEBERSICHT 

6) 

KORREKTUR 

7) 

TERMINLOESCHUNG 


GESAMTAUSDRUCK RUF PRINTER 




10 

Führen Sie Ihr Konto mit dem ZX 81 


«Ihr Scheck ist nicht gedeckt», «Die Abdeckung Ihres Girokon¬ 
tos ist überfällig, bitte bezahlen Sie den ausstehenden Betrag bis 
spätestens ...»,«Sie haben kein Geld». 

Banken drücken diesen Sachverhalt im allgemeinen etwas 
freundlicher aus, beispielsweise «Jeder kann einmal etwas über¬ 
sehen, wir sind sicher, daß es auch Ihnen so gegangen ist, als Sie 
Ihr Konto mit einem Betrag von .. .überzogen und bis heute noch 
nicht abgedeckt haben. Wir würden Ihnen vorschlagen, ein kur¬ 
zes Gespräch mit Ihrem Kundenberater zu führen. Mit freundli¬ 
chen Grüßen...». Derartige Dinge sind im allgemeinen meist 
recht unangenehm. Damit Sie nicht durch eine falsche Planung 
Ihres Budgets in derartige Situationen kommen, empfiehlt sich 
eine Buchhaltung mit dem Computer. Gar kein Problem mit 
unserem Kontoführungsprogramm, das zudem noch einen einfa¬ 
chen Aufbau hat. Zu Beginn des Programms druckt Ihnen der 
Computer ein Menü aus, wobei Sie die gewünschte Option durch 
Eingabe des jeweiligen Anfangsbuchstabens anwählen. Um bei¬ 
spielsweise «Eingeben des Datums» zu wählen, tippen Sie «E». 
Nach der Eingabe des Datums können Sie beginnen, das Pro¬ 
gramm mit den einzelnen Posten zu füllen. Sie können zu jeder 
Ein- oder Ausgabe einen Text von maximal 25 Zeichen verfas¬ 
sen. Wann immer Sie wollen, hält jetzt der Computer für Sie eine 
Monatsübersicht oder eine Übersicht nach Posten bereit. Briefe, 
wie die am Anfang des Kapitels geschilderten, dürften Sie in 
Zukunft nicht mehr bekommen. 
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KONTOFÜHRUNGSPROGRAMM 


10 GOTO 100 
15 DIM fi*C31,2S) 

20 DIM R(31,2) 

25 LET Z=1 
4-5 GOTO 1 

50 IF INKEY*< THEN GOTO SO 

55 IF INKEY*=•”' THEN GOTO SS 
60 LET L*=INKEY* 

65 RETURN 

10O CLS _ 

105 PRINT TAB 3; "* MOLLEN SIE. I 


/ * * * 


SPEIGHERN mit* BR 


110 PRINT 
NO ” 

115 PRINT 

S" 

120 PRTNT 
NGEBEN" 

125 PRINT , , “MONRT5ÜEBEREICHT" 
130 PRINT ,."UEBERSICHT IH EINZ 
ELNEN" 

150 GOSUB 50 
155 IF L*= # 'S' 

150 IF l-* = "E‘ 

165 IF L*="T‘ 

170 IF L*='*M' 

175 IF L*="U' 

195 GOTO 150 
200 CLS 

205 PRINT "STRRTEN SIE DEN REKO 
RDER , ** , "DRUECKEN SIE DRNN N^L“ 
210 GOSUB 50 
215 CLS 
220 SRUE • , B ,# 

225 GOTO 1 
250 CLS 

255 PRINT TRB 3; DRTUHSEINGRB 
5 ■- 

26© PRINT ä * "TAG: ** ; 

265 INPUT T 

270 LET T = INT RBS T 

275 IF T=0 OR T >31 THEN GOTO 26 


‘EINGEBEN DES DATTÜH 
TRGESUEBERSICHT EI 


THEN GOTO 200 
THEN GOTO 250 
THEN GOTO 350 
THEN GOTO 450 
THEN GOTO 550 


2Q0 PRINT T 

285 PRINT , /‘MONAT:” 

290 INPUT H 

295 LET M=INT RBS M 

300 IF H=0 OR H >12 THEN GOTO 29 
d 

305 GOTO 1 
350 CLS 

355 PRINT -HEUTE IST DER T; * r . 
';Mi M . - 
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360 PRINT , , "EINNAHMEN: M ; 

365 INPUT E 

370 LET R(T,1>=INT (RBS E*100> ✓ 
100 

375 PRINT R CT , 1) 

380 PRINT / t "RUSGRBEN : **; 

385 INPUT R 

390 LET fi(T,2)= INT CRBS Rf100)/ 
100 

395 PRINT fl(T,2) 

100 PRINT , # TRB 5;"BRLfiNCE;";Ri 
T,l)-fl CT , 2) 

4.05 PRINT , t "KOMMENTRR (MRX . 25 

POS) : " 

4-10 INPUT K * 

415 IF LEN K$>25 THEN GOTO 4-10 
420 LET R* CT) =K* 

425 PRINT K * 

430 GOSUB 50 

440 GOTO 1 

450 LET E =0 

452 CLS 

455 LET R=0 

460 FOR 1=1 TO T 

465 LET E=E+R(I,1} 

470 LET fl=R+RCI,2) 

475 NEXT I 

% 480 PRINT ‘‘HEUTE IST DER M ;T;”. 
” i M i • 

485 PRINT 

490 PRINT "GESflMTEINNRHMEN: " ; E 

495 PRINT , ,“GESRMTRUSGRBEN: “ ; R 
500 PRINT ,,TRB 3;"GESRMTBRLRNC 
E: M ;E-R 
505 GOSUB 50 
510 GOTO 1 

550 CLS 

551 FOR 1=1 TO T 
555 SCROLL 

560 PRINT R*CI);" ";RCI,1)-R(I, 

2) 

565 IF INKEY THEN GOSUB 60 

0 

570 NEXT I 
575 GOSUB 50 
580 FRST 
585 CLS 
590 SLOU 
595 GOTO 1 

600 IF INKEY*<> "U n THEN GOTO 60 

0 

605 RETURN 
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Lagerverwaltung mit dem ZX 81 
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■ WOLLEN SIE ■ 

SPEICHERN RUF BAND 
EINGEBEN DES DATUMS 
TRGESUEBERSICHT EINGEBEN 
MONRTSUEBERSICHT 
UEBERSICHT IM EINZELNEN 


Ein Kleincomputer kann wahrscheinlich besser den Überblick 
über ein Warenlager behalten als der Unternehmer selbst. Vom 
Prinzip her ist ein Lagerverwaltungsprogramm ein Speicherpro¬ 
gramm mit besonderen Zusatzfunktionen. Unser Programm ist 
dialoggesteuert, d.h., der Computer fragt jedesmal dann, wenn er 
von Ihnen eine Entscheidung braucht. Lange Erklärungen zur 
Funktionsweise des Programms erübrigen sich damit. Beim Erst¬ 
lauf des Programms ist es notwendig, die Option 1 INITIALISIE¬ 
REN zu wählen, da Sie sonst bei der ersten anderen Option 
unweigerlich mit dem Fehlercode 2 (Variable nicht gefunden) 
aus dem Programm fallen. Starten Sie das Programm mit 
GOTO 1. Bei der Verwendung dieses Programms ist das Vorhan¬ 
densein eines Druckers von großem Vorteil, da der Geschäfts¬ 
mann damit gleich die Möglichkeit zur Anfertigung einer gut 
lesbaren Dokumentation hat. 


EEEEEEEEEEEEEEEEEEEEEEEEEE 
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LAGERVERWALTUNGSPROGRAMM 


10 GOTO 100 

20 JF INKEY$<>"" THEN GOTO 20 
25 IF INKEYS=" ” THEN GOTO 25 
30 LET L_$ = INKEY S 
35 RETURN 
4-0 INPUT ES 

4-5 IF LEN ES <=23 THEN GOTO 60 
50 PRINT "BITTE KUERZEN SIE IH 
RE EINGABE" 

55 GOTO 4.0 
60 PRINT ES 
65 RETURN 

70 PRINT RT U,0; "HARDCOPY C U/N 

) 

'75 GOSUB 20 
80 PRINT RT ü,0;X* 

85 IF THEN COPY 

90 RETURN 
95 FRST 

110 PRINT TAB 3; "■ WOLLEN SIE ■ 


115 PRINT 
120 PRINT 
SPEICHERN" 
125 PRINT 
130 PRINT 
132 PRINT 
135 PRINT 


, , , "INITIALISIEREN" 

,"PROGRRHH RUF BRNO 

, "EINGEBEN" 

,"UEBERSICHT" 

,"DRÜCKERUEBERSICHT" 
,"UERKAUFSUEBERSICHT 


14-0 PRINT ./'NEUE LIEFERUNGEN E 

I l5t5 B PRINT , , "RRBEITSMODUS" 

195 SLOU 
200 GOSUB 20 

205 IF LS="I“ THEN GOTO 300 

210 IF LS=“E" THEN GOTO 4.00 

215 IF Lt="P" THEN GOTO 550 

220 IF L$="U" THEN GOTO 650 

225 IF L$= M D M THEN GOTO 750 

230 IF L$ = "U" THEN GOTO 600 

235 IF L$="N" THEN GOTO 900 

24.0 IF L$ = "R" THEN GOTO 1200 

295 GOTO 200 
300 PRINT RT 20,0;"OK" 

305 LET M=300 
310 DIM R $ ( M ,23 ) 

315 DIM R(M) 

320 DIM B(M) 

325 DIM XSC32) 

330 LET Z = 1 
335 LET F=Z 
34.0 DIM C(M) 
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34-5 LET GE=0 
350 GOTO 1 
4-00 CLS 

4.05 PRINT "EINGABE NR/‘;Z 

PRJNT , , "PRODUKTBEZEICHNUNG 
( MRX . 25 B . ) 

415 GOSUB 40 

417 IF E$="" THEN GOTO 1 

420 PRINT . /‘PREIS DES PRODUKTE 

S: ; 

425 INPUT P 

430 IF P<0 THEN GOTO 425 
435 LET P = INT (P*100) /100 
440 PRINT P 

4-45 PRINT , /'ANZAHL DER EINHEIT 
EN: ; 

450 INPUT R 

455 IF INT ABS R<>R OR R=0 THEN 
GOTO 450 

460 LET R=INT RBS R 
465 PRINT « 

470 PRINT RT 10,0;"EINGABEN KOR 
REKT («J-^N.I 7" 

475 GOSUB 20 

460 IF L$="N" THEN GOTO 400 
482 PRINT RT 20,0,X$ 

485 LET A$(Z)=E$ 

490 LET R(Z)=P 

495 LET B (Z* =R 

500 LET Z=Z + 1 

505 IF Z >M THEN LET F=© 

510 IF NOT F THEN GOTO 1 
515 GOTO 400 
550 CLS 

555 PRINT "DIE UIEUIELTE DRTEI 

IST DIESES","PROGRAMM (MENU = 0) 

11 

560 INPUT Q 

565 IF NOT O THEN GOTO 1 
570 CLS 

575 LET O = INT RBS O 

580 LET S$="L"+STR$ Q 

585 PRINT "PRQGRRMMNRME:";S$ 

590 PRINT ,,"STARTEN SIE DEN RE 
KORDER/'/'DRUECKEN SIE DANN N>\L" 
595 GOSUB 20 
600 CLS 
605 SAUE SS 
610 GOTO 99 
650 CLS 

655 FOR 1=1 TO Z-l 
660 SCROLL 

665 print rsiij;" ";R(I*;(".0" 
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AND R ( I) = INT R(X))+< ,, 0 , ‘ RND R ( I) 
* 10 = INT (R (X) Ü0J 1 
670 SCROLL 

675 PRINT TRB 5 ; B (I);C(I) 
680 IF INKEY$ = ,, E U THEN GOTO 95 

685 IF INKEY$ = ,, H“ THEN GOTO 72© 

690 NEXT I 
695 SCROLL 

700 PRINT "PUER MENU N/L" 

705 GOSUB 2© 

710 GOTO 95 _ 

720 XP INKEY$<> n W M THEN GOTO 72 

0 

725 GOTO 690 


750 PRST 

755 LPRINT 

760 POR 1=1 TO Z-l 

762 LPRINT I 

765 LPRINT R**!);" “f.** 1 *' * 

RND RXIJ=INT RWC 1 & X Z 

) *10=INT (R(I) 110) ) .. _ # 

770 LPRINT TRB 5; B (I) ; ‘V; C (I) 
775 NEXT I 
780 LPRINT 
785 GOTO 95 


800 PRST 


801 CLS 

805 LET C=0 

815 POR 1=1 TO Z-l 

820 LET C =C +C * I > 

830 NEXT I 

835 PRINT ,,"BISHER WURDEN “;C; 
" RRTIKEL" 

84-0 PRINT , /'UERKRUPT UND EINE 
EINNRHME" 

84-5 PRINT , /‘UON “; GE; ERZIELT 


85© LET <J =7 
852 SLOU 
855 GOSUB 70 

860 PRINT RT J,0;“PUER MENU 


N/L 


865 GOSUB 20 
870 GOTO 1 
900 CLS 

905 PRINT "UELCHES PRODUKT IST 
NEU'* , "EINGELRNGT 7" 

910 GOSUB 4-0 
915 LET L=LEN E$ 


920 FOR 1=1 TO L 

925 IP E$(I) = u .‘* THEN LET 


E$ (I) 


EEEEEEEEEEEEEEEEEEEEEEEEEE 
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930 IP E $ {X) <>" " THEN GOTO 950 

935 NEXT I 

94-0 GOTO 1 

950 LET B = I 

955 CLS 

960 PRINT E$ 

965 FRST 

970 FOR 1=1 TO Z-l 

975 IP R$(I,B TO L)=E$(B TO ) T 
HEN GOTO 1E3 
980 NEXT I 

985 PRINT "* NICHT GEFUNDEN 
990 GOSUB 20 
995 GOTO 1 

1000 PRINT R$(I) 

1001 SLOU 

1005 PRINT , > "RICHTIG iJ/N) 

1010 GOSUB 20 

1015 IP L$ = *‘U” THEN GOTO 1050 

1020 IP L$i < > "N** THEN GOTO 1010 

1025 LET 1=1+1 

1030 PRST 

1035 CLS 

104-0 PRINT E$ 

104-5 GOTO 975 
1050 CLS 

1055 PRINT , *SPEICHERZRHL: ,, ;I 
1060 PRINT R$fI3;" " ; R ( I) ; C - . 0» 

RND R (I) =INT Rtl))+C0" RND R(I) 
*10=INT (fl(I)f!0)) 

1065 PRINT TRB 5; H V/L: “;CCD ; 'V" 

; B i I) 

1070 PRINT ,,“NEULIEFERUNGEN: 

1075 INPUT N 
1080 LET N=INT RBS N 
1085 IF N <0 THEN GOTO 1075 
1090 LET B(I3=B(I)+N 
1095 PRINT N 

1100 PRINT , j "NEUER LRGERBESTflND 
: ; B ( I) 

1105 GOSUB 20 
1110 GOTO 1 
1200 CLS 

1205 PRINT “KENNZRHL: 

1210 INPUT K 

1215 LET K=INT RBS K 

1220 IF K >Z —1 THEN GOTO 1210 

1225 PRINT K 

1230 PRINT “UERKRUFSZRHL:”; 

1235 INPUT U 

124-0 IF U>BCKJ THEN GOTO 1250 
124-5 GOTO 1260 
1250 PRINT 


1075 

1080 

1085 

1090 

1095 

1100 


1110 

1200 

1205 

1210 

1215 

1220 

1225 


EBEEEEEEEBEEEEEBEEEEBEEEEE 
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1252 PRINT “NICHT GENUG R UP LRGE 
R“ 

1255 GOTO 1235 
1250 CL5 

1265 PRINT R$ *K) ; “ “ ; R(K) ; C“ .0*' 

RND R < K ) = INT R(K))+(“0“ RND RCK) 
•£ 10 = INT CR CK) *10) ) 

1270 LET B<K)=B(K)-U 

1275 PRINT , /'NOCH ";BCK);~ RUF 

LRGER“ 

1260 LET C(K)=C(K) 

1285 LET GE=GE+Utfl(K) 

1220 PRINT ,,“PREIS:";U*RIK) 

1225 LET U=10 
1300 GOSUB 70 

1305 PRINT RT 10 , 0;“MENU = M" 
1310 GOSUB 20 

1315 IF L$=“M“ THEN GOTO 1 
1320 GOTO 1200 


■ WOLLEN SIE ■ 


INITIRLISIEREN 

PROGRAMM RUF BRND SPEICHERN 

EINGEBEN 

UEBERSICHT 

DRUCKERUEBERSICHT 

UERKRUFSUEBERSICHT 

NEUE LIEFERUNGEN *EINGEBEN 

RRBEITSMODUS 


EEEEEEEEEEEEEEEEEEEEEEEEEE 
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Computergrafik mit dem ZX 81 


Computergrafiken sind nicht nur Bestandteil des Kunstmarkts, 
sondern werden auch zusehends für professionelle Zwecke einge¬ 
setzt. So gibt es z.B. schon Hunderte computeranimierte Filme, 
besonders Zeichentrickteile von Werbespots werden oft so herge¬ 
stellt, weil die Produktionskosten erheblich niedriger sind. Der 
derzeit wohl bekannteste Computerfilm ist der abendfüllende 
Streifen Tron. Computergrafik kommt auch oft zum Einsatz, 
wenn es um die Erstellung von Plänen, Skizzen, Diagrammen 
und Konstruktionszeichnungen geht. Der Vorteil ist hierbei vor 
allem, daß bei Änderungen nicht die gesamten Pläne neu ge¬ 
zeichnet werden müssen. Und schließlich erledigen Computer 
auch den Umbruch von Zeitungen und Zeitschriften. 

Leider hat der ZX 81 ziemlich eingeschränkte Grafikmöglich¬ 
keiten, also weder Farbe noch hochauflösende Grafik. Die Auf¬ 
lösung ist mit 44 x 64 Punkten recht bescheiden. Innerhalb die¬ 
ser Grenzen sind aber doch einige recht interessante Programme 
möglich. Natürlich sind Linien, die nicht genau horizontal oder 
vertikal verlaufen, infolge der «Blöckchengrafik» ziemlich unge¬ 
nau. Jedem, der auf hochauflösende Grafik Wert legt und genaue 
Zeichnungen und Graphen von Funktionen erstellen will, kann 
man nur die Anschaffung eines Hochauflösungsmoduls oder ei¬ 
nes anderen Computers empfehlen. Doch nun zum 1. 
Grafikprogramm: 

Dieses Programm plottet ein wahlloses, aber in zwei Achsen 
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symmetrisches Muster auf den Bildschirm des ZX 81. In 1K wird 
allerdings das Ende der Pracht mit dem Kommentar 4/35 (Spei¬ 
cherüberlauf) rasch erreicht sein. 

Das nächste Grafikprogramm unterscheidet sich vom ersten 
nur durch die Zeile 5 RAND, aber es ändert sich einiges auf dem 
Bildschirm. Sie werden bald feststellen, daß sich die einzelnen 
Grafikpunkte hier auf Linien befinden. Dieser Effekt hängt un¬ 
mittelbar mit dem Pseudo-Zufallsgenerator des ZX 81 zusam¬ 
men. Besagter Pseudo-Zufallszahlengenerator benötigt ein SEED 
(mit «Saat» nur unzulänglich übersetzbar). Bei RAND 10 ist es 
die Zahl 10, bei RAND 0 oder RAND ohne nähere Bezeichnung 
verwendet der ZX 81 als Ausgangspunkt des Pseudo-Zufallszah¬ 
lengenerators die seit dem Einschalten des Geräts vergangene 
Zeit. Da sich diese aber von Durchlauf zu Durchlauf nicht erheb¬ 
lich unterscheidet, sind die erzeugten Koordinaten nicht so wild 
durcheinander. 

Versuchen Sie nun, Zeile 5 auf RAND 10 zu ändern. Was ist 
der Effekt? Sie können bei sich zu Hause ruhig Wetten darauf 
abschließen, was sich am Bildschirm tun wird (natürlich, bevor 
Sie das Programm laufen ließen!!!). Was also ist die Auswirkung? 
Starten Sie das Programm! Sie sind sicher enttäuscht. Ganze vier 
Punkte sind ja wirklich nicht viel. Was ist geschehen? Dadurch, 
daß Sie 10 als SEED angegeben haben, wird immer die gleiche 
Sequenz an Zufallszahlen erzeugt, also bleiben die Koordinaten 
bei jedem Durchlauf unverändert. Wenn Sie jetzt Zeile 40 auf 
GOTO 10 ändern, funktioniert es wieder. Lassen Sie das Pro¬ 
gramm ein bißchen laufen, stoppen Sie es mit BREAK und 
lassen Sie es nochmal laufen. Das Muster, das vor Ihren Augen 
entsteht, ist genau dasselbe wie vorhin. Sollten Sie einen Drucker 
Ihr eigen nennen, so können Sie sich diesen Sachverhalt mit zwei 
identischen Ausdrucken sogar beweisen. Die Erklärung dafür 
fällt nicht schwer: Durch RAND 10 haben Sie zweimal das glei¬ 
che Muster erzeugt. Wenn Ihnen dieses Muster besonders gut 
gefallen hat, können Sie es mit RUN immer wieder entstehen 
lassen. 

: i 

1 
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GRAFIKPROGRAMM 1 


10 LET X=RND*32 
15 LET Y=RND*22 
20 PLOT X,Y 
25 PLOT 63-X,Y 
30 PLOT X,4-3-Y 
35 PLOT 63 —X , 4-3 —Y 
40 RUN 
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GRAFIKPROGRAMM 2 



5 RRND 

10 LET X=RND*32 
15 LET Y=RND*22 
20 PLOT X,Y 
25 PLOT 63-X,Y 
30 PLOT X.43-Y 
35 PLOT 63-X,43-Y 
4.0 RUN 


27 scKoLL 
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Funktionsplot 

Dieses kurze lK-Programm ermöglicht es, den Graphen einer 
beliebigen Funktion im Bereich von 0 bis 2 PI zu plotten. Die 
erste Eingabe, die das Programm verlangt, ist eine Funktion der 
Variablen X, die zweite Eingabe ist die Schrittweite. Dann kön¬ 
nen Sie das Programm an verschiedene Funktionsverläufe an¬ 
passen. Erwarten Sie von einer Funktion, daß sie große Sprünge 
machen wird, sollten Sie eine kleine Schrittweite wählen (z.B. 
0,01). Für lineare Funktionen ist 0,1 durchaus genug. Allerdings 
sollte die Schrittweite immer möglichst groß gewählt werden, um 
zu verhindern, daß Ihr ZX 81 unnötig viele Punkte berechnen 
muß, was sich ziemlich nervend auf die Rechenzeit nieder¬ 
schlägt. Haben Sie 16K an Speicher zur Verfügung, ändern Sie 
Zeile 95 wie folgt: 95 PLOT X* 10,Y. 
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FUNKTIONSPLOT 


10 PRINT "F (X) *7 '* 

15 INPUT F$ 

25 PRINT "ST** 

30 INPUT S 
35 CL5 

4-0 PRINT *' Xs^'jlF* 

4-5 FOR X=© TO 53 
50 PLOT 0, (X RND X <4-4-) 

55 PLOT X , 22 
60 NEXT X 

60 FOR X=Ö TO 2fPI STEP S 
35 LET Y =RBS (URL F$+22) 

90 IF Y <0 OR Y > 4-3 THEN GOTO 90 
95 PLOT X*6.4.,Y 
100 NEXT X 
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Sketch 

Bei diesem Zeichenprogramm kommt jeder Programmierer auf 
seine Rechnung, da der «Zeichenstift» am Beginn des Pro¬ 
gramms vorprogrammiert werden kann. Weiters ist eine Art 
Lupenfunktion eingebaut. Die erste Eingabe betrifft die Zeich¬ 
nung. Sie geben eine Buchstabenkette ein, bestehend aus folgen¬ 
den Buchstaben: 

O bedeutet eine Bewegung des Stiftes nach oben, 

U eine solche nach unten, 

L eine nach links und 
R eine solche nach rechts. 

Wie viele Bewegungen Sie programmieren, ist nur durch den 
verfügbaren Speicherplatz beschränkt. Die zweite Eingabe akti¬ 
viert die «Lupe». Damit ist es möglich, jede Zeichnung um einen 
beliebigen ganzzahligen Betrag zu vergrößern. Begrenzend wir¬ 
ken wieder einmal nur Speicherplatz und die Größe des Bild¬ 
schirms. Indes, ein Überlauf über die Grenzen des Bildschirms 
stoppt das Programm nicht. Wenn Sie ein und dieselbe Zeich¬ 
nung in verschiedenen Vergrößerungsfaktoren sehen wollen, 
ohne die Zeichnung neu eingeben zu müssen, starten Sie das 
Programm mit GOTO 15. Nun können Sie den neuen Vergröße¬ 
rungsfaktor eingeben, sich genüßlich zürücklehnen und Zuse¬ 
hen, wie der ZX 81 Ihr Meisterwerk erstehen läßt. Der Probelauf 
wurde übrigens mit den Vergrößerungsfaktoren 1, 2 und 3 herge¬ 
stellt. Für 16K-Speicher ändern Sie bitte Zeile 40 wie folgt: 40 
LET X = X + (A$(I) = “R”AND X<63)-(A$(I) = “L”AND 
X>0). 
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SKETCH 

5 LET P = 1 
10 INPUT R$ 

15 INPUT F 
20 LET X =NOT P 
25 LET Y=X 

30 FOR I=P TO LEN R$ 

35 FOR U=P TO F 

4-0 LET X=X+ CR* (I) = % ’R" RND X<4-3 
> - «R$ CI) s-L" RND X >0) 

<4.5 LET Y=Y + (R$ (I) = ,, 0*‘ RND Y<4-3 
) -<R$CI) = "U" RND Y >0) 

50 PLOT X,Y 
55 NEXT U 
60 NEXT I 
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1 K-Grafikprogramm 

Dieses Programm gibt ein interessantes Muster aus, das durch 
die Eingabe verschiedener Funktionen beeinflußt werden kann. 
Zunächst tippen Sie also eine Funktion von X ein (z.B. X**2, was 
eine Pyramide ergibt, X + X + 4, usw.). Die Ausgabe erfolgt, wie 
schon besprochen, in einem wechselnden Streifenmuster. 

16 K-Grafikprogramm 

Dieses Programm ist vor allem auf Schriften aufgebaut. Drei 
verschiedene Schriftgrößen (ZX-81-Normalschrift, vierfache 
Größe, achtfache Größe) stehen dem «Grafiker» zur Verfügung. 
Nachdem Sie den Cursor mit Hilfe der Tasten 5, 6, 7 und 8 auf 
dem Bildschirm positioniert haben, drücken Sie NEW LINE; 
jetzt können Sie den Text eingeben, wobei Sie nach Möglichkeit 
Grafikzeichen vermeiden sollten. Sind Sie mit Ihrem Kunstwerk 
zufrieden, können Sie statt der Schriftgröße die Zahl 0 eintippen 
und somit den Ausdruck des Bildschirms auf den Drucker erzie¬ 
len, was natürlich nur dann funktioniert, wenn der Drucker 
angeschlossen ist. Dieses Programm eignet sich z.B. für die Her¬ 
stellung von Einladungskarten, Glückwunschkarten und ähnli¬ 
chen täglichen Drucksorten. Für eine Vermählungsanzeige hat 
der Computerausdruck vielleicht gar ein etwas eigenartiges 
Appeal... 
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16K-GRAFIKPR0GRAMM 


5 L ET P=1+PEEK 13393+253 *PEEK 
16397 

10 LET X=0 

15 LET Y=0 

2© LET Z = 128 

25 PRINT RT 21,0; "SCHRIFTGROES 
SE (0-3J: 

30 INPUT G 

32 IF G=0 THEN GOTO 300 

35 IF G<1 OR G>3 OR G<>INT G T 
HEN GOTO 30 

4-0 PRINT RT 21,0; "POSITIONIERE 
N SIE DEN CURSOR” 

4-5 GOTO G*100+(100 RND G=3J 
100 LET Pl=P+33iX+Y 
105 POKE P1,PEEK Pl+Z#(PEEK PI< 
Z)-Z*(PEEK P1>=Z) 

110 LET X1=X+ ( C X < 20 > RND INKEY$ 
= " 3 ") - f fX>0.> RND TNKEY*- ,, 7 ,, > 

115 LET Y1=Y+C(Y<31) RND INKEY $ 
= **6") - ( (Y>0) RND INKEY* = '*5"* 

120 IF INKEY$oCHR* 118 RND X=X 
1 RND Y =Y1 THEN GOTO 105 
125 POKE PI,PEEK Pl-Z* <PEEK PI) 
= Z) 

130 LET X=X1 
135 LET Y=Y1 

14-0 IF INKEY$ < >CHR$ 118 THEN GO 
TO 100 

14-5 PRINT RT 21,0; "TEXT CMRX. " 

;32-Y;" POSITIONEN): 

158 INPUT T* 

155 IF LEN T*>32-Y THEN GOTO 14- 
5 

160 PRINT RT X,Y;T $ 

165 GOTO 10 
200 LET Pl=P+33*XfY 
205 LET P2=P+33*X+Y+3 
210 LET P3=P + 33#(X + 3.UY 
215 LET P4-=P+33* CX + 35 +Y + 3 
220 POKE PI,PEEK Pl+Zi(PEEK Pl< 
Z) -Z* (PEEK PI > =Z.l 
225 POKE P2 , PEEK P2+2-KPEEK P2< 
Z) -Z *(PEEK P2>=Z) 

230 POKE P3,PEEK P3+Z*(PEEK P3< 
Z)-Z*(PEEK P3>=Z) 

235 POKE P4- , PEEK P4-+Z*(PEEK P4-< 
Z) -Z* (PEEK P4- > =Z) 

24-0 LET X1=X4((X<16) RND INKEY $ 
= "6" ) - ( (X>0) RND INKEY*="7") 

24-5 LET Y1=Y+ ( (Y<2?) RND INKEY* 
= "8" ) - ( (Y >0.) RND INKEY *= ,, 5 , M 




7 Der Mikrocomputer ZX 81 
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250 IF INKEV$OCHR$ 118 BND X =X 
1 RND Y=Y1 THEN GOTO 220 
255 POKE Pl.PEEK PI-Z*(PEEK PI> 

260 POKE P2 , PEEK P2-Z*(PEEK P2 > 
=Z> 

265 POKE P3.PEEK P3-Z»(PEEK P3> 
=Z> 

270 POKE P4-, PEEK P4-Z*(PEEK P4- > 

=Z) 

275 LET X=X1 
280 LET Y =Y1 

285 IF INKEY*< >CHR* 113 THEN GO 
TO 200 

290 PRINT RT 21,0;"TEXT (HBX. 

; INT (8-Y/4) ; " POSITIONEN) : 


295 INPUT T* 

300 IF LEN T * > INT (8-Y/4) THEN 
GOTO 295 

305 FÜR 1=1 TO LEN T* 

310 FOR J=0 TO 7 __ 

315 LET 0=PEEK (7680+(CODE T*(I 
)+1)*8+U-S) 

811 IfVSS^INT 1 llTif THEN PLOT 

33l + LET 3 oilNT J (0/2) 

34-0 NEXT K 
34.5 NEXT U 
350 LET Y =Y + 4 
355 NEXT I 
360 GOTO 10 
4-00 LET P1=P+33#X+Y 
4-05 LET P2=P+33*X+Y+7 
410 LET P3=P+33*(X+7)+Y 
4-15 LET P4=P+33*(X+7)+Y+7 
4-20 POKE PI, PEEK P1+Z-» (PEEK Pl< 
Z) -Z*(PEEK PI> =Z> 

4-25 POKE PS , PEEK P2+Z.4(PEEK PS < 
Z) -Z*(PEEK P2 > =Z) 

430 POKE P3,PEEK P3+Z*(PEEK P3 < 

Z 435*P0KE K P4?PEEK P4+Z*(P^EK P4< 

^^e^LET E X1=X + T Z X< 12) RND INKEY* 
= -6") - ( (X>0) RND INKEY*=••?") 

445 LET Y1=Y+((Y<24) RND INKEY* 
= "©•■)-( (Y>0) RND INKEY* = "5") 

450 IF INKEY*<>CHR* 118 RND X=X 

1 RND Y=Y1 THEN GOTO 420 _ 

455 POKE Pl.PEEK PI-Z*(PEEK PI> 

460 POKE PS,PEEK PS-Z*(PEEK P2> 

465 POKE P3,PEEK P3-Z*(PEEK P3> 

=Z) 
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_470 POKE P4,PEEK P4-Z*(PEEK P4> 

475 LET X=X1 
480 LET Y=Y1 

^85 IF INKEY * < > CHR * 118 THEN GO 

4-90 PRINT RT 21,0; "TEXT fMRX. 
j INT (4--Y/8) ; POSITIONEN)7 

495 INPUT T* 

r ^00 TfF LEIN T*>INT (4--Y/8) THEN 
GOTO 4-95 

505 FOR 1=1 TO LEN T$ 

510 FOR J=0 TO 7 
Jl^LET Q=PEEK r7600+CODE T$(I) 

520 FOR K=7 TO 0 STEP -1 

t 5 II <0 ' s> ™ EN PRIN 

535 LET O = INT (0/2) 

54-0 NEXT K 

54-5 NEXT U 

550 LET Y=Y+8 

555 NEXT I 

560 GOTO 10 

600 PRINT RT 21,0;" 

»f 

805 COPY 

olsCHEN 1 ^ fn ’ 21 '® ; "BILDSCHIRM L 

815 INPÜT E* 

820 IF E*="J" THEN CLS 
825 RUN 


SUPERPROGRAMME FUER DEN 


BBBBBBBBBBBBBBBBBBBBBBBBBB 



T 







Computermusik mit dem ZX 81 


Obwohl es Computermusik noch nicht sehr lange gibt, haben 
sich bereits einige Komponisten auf diesem Gebiet etabliert. 
Vertreter dieser relativ jungen Musiksparte sind beispielsweise 
Jean-Michel Jarre oder die österreichische Gruppe Erdenklang. 
Auch einige Zusatzgeräte für den ZX 81 gibt es schon auf dem 
Markt. Die meisten von ihnen basieren auf dem Baustein AY-3- 
8910. Es handelt sich dabei um einen ziemlich komplexen und 
nicht ganz preiswerten Chip, mit dem sich allerdings auch eini¬ 
ges anfangen läßt. Einer der für den ZX 81 erhältlichen Musik- 
Synthesizer, mit dem übrigens auch das folgende Programm er¬ 
stellt wurde, hat zusätzlich zwei programmierbare 8-Bit-I/O- 
Ports eingebaut. Es handelt sich dabei um ein Erzeugnis der 
Firma William Stuart Systems Ltd. in 44, Bedford Gardens, Ken- 
sington, London W8 7 EH, das den Vorteil hat, erstaunlich preis¬ 
wert zu sein. Für rund £ 20 schickt man Ihnen das Gerät als 
Bausatz, um etwa £ 26 als Fertiggerät ins Haus. Da der Synthesi¬ 
zer als I/O-Gerät des Prozessors Z 80 A ausgelegt ist, muß eine 
kurze Maschinenroutine zum Datentransfer herhalten. Wie 
schon erwähnt, ist das folgende Programm für den Synthesizer 
obiger Firma geschrieben, kann aber leicht für jedes andere 
Fabrikat modifiziert werden. Der Tongenerator-Chip AY-3-8910 
hat 16 Register, über die alle Funktionen des IC gesteuert wer¬ 
den. Die Funktionen der einzelnen Register sind in einem dem 
Synthesizer beigelegten Handbuch erklärt. Nun einige Anmer- 
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kungen zum datenübertragenden Maschinenprogramm. Um es 
überhaupt in den Speicher des ZX 81 ablegen zu können, wird 
eine REM-Zeile verwendet. Sie muß immer die erste Zeile des 
Programms sein, da sonst die Startadresse nicht mehr stimmt. 
Um das Maschinenprogramm in die REM-Zeile zu bekommen, 
ist ein kurzes BASIC-Programm vorgesehen. 


0 Datenbyte 

0 Datenbyte 

42 130 64 ld A, (16514) 
211135 OUT A, (135) 
42 131 64 ld A,(16515) 
211 199 OUT A,(199) 

201 RET 


Geben Sie die obigen Zahlen der Reihe nach ein. Bei einem 
Irrtum müssen Sie leider von vorne beginnen, aber bei 13 Zahlen 
macht das wirklich nichts aus (außer natürlich, Sie sind 
abergläubisch). 

Das Hauptprogramm ermöglicht es, den Registern des 
Sound-Chips verschiedene Werte zuzuweisen und dabei auch 
eine Pause einzulegen. Bis zu 1000 Eingaben sind möglich, das 
kann allerdings auch bei 16K noch um einiges erhöht werden. 
Für die Vollausnützung des Speicherplatzes ändern Sie einfach 
Zeile 10 auf 10 DIM A$ (6E3,2). 

Starten Sie das Programm mit RUN, allerdings nur das erste¬ 
mal, da sonst alle mühevoll gemachten Einträge gelöscht wür¬ 
den. Sollten Sie einmal zufällig aus dem Programm fallen (wider 
Erwarten), starten Sie das Programm einfach mit GOTO 30. Am 
Beginn des Programms spuckt der ZX 81 das Menü aus. Wenn 
Sie sich für Option 1 «Eingabe» entscheiden, so hakt er nach und 
fragt, bei der wievielten Eintragung er beginnen soll. Dieser 
gewünschte Eintrag erscheint am Bildschirm. Nun können Sie 
durch Drücken von NEW LINE zur nächsten Eingabe kommen, 


] 

( 


1 


ohne irgendwelche Daten zu löschen oder zu verändern. Wenn 
Sie sich bei einer Eingabe geirrt haben, geben Sie einfach bei der 
nächsten Eingabe «E» ein; daraufhin wird der vorherige Eintrag 
wieder sichtbar, und Sie können die gewünschte Korrektur 
durchführen. Um aus der Eingabe ins Menü zurückzukehren, 
geben Sie «S» ein. Folgende Besonderheiten ergeben sich bei der 
Eingabe: Wenn Sie statt eines Registers die Zahl 16 eingeben, so 
macht das Programm beim Abspielen eine Pause, wobei die 
Länge dieser Pause davon abhängt, mit welchem Wert Sie dieses 
«Register» füllen. Am Ende jedes Musikstücks müssen Sie das 
Register 255 aufrufen und z.B. mit 0 füllen, da sonst alle leeren 
oder mit ungültigen Daten gefüllten Stellen vom ZX 81 abgear¬ 
beitet und in Noten verwandelt werden. 
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MUSIKPROGRAMM 


sin tön ™ 

2 LET R=16S14 

3 LET B=R + 1 

4 LET M=B+1 

5 LET Z = 1 

10 DIM R*(1E3,2) 

30 SCROLL 
35 SCROLL 
37 SCROLL 

4-0 PRINT RT 20 ,0; ”1) EINGABE" , 
2) SPIELEN","3) RUF BRNO SPEICH 
ERN 

4.2 SLOU 

4-5 IF INKEV * = "" THEN GOTO 45 
50 IF INKEY*=”1" THEN GOTO 65 
55 IF INKEV*="2" THEN GOTO 200 
fZ I NKEY *=“3" THEN GOTO 300 

60 GOTO 4-5 
65 SCROLL 

70 PRINT “ßFGINN 7 
75 INPUT S 
80 PRINT S 
85 SCROLL 

2® ££ INT S,TRB 4; CODE R*(S,1); 
“-'";CODE R*(S,2); 

95 INPUT E* 

I®® JF E$ = “" THEN GOTO 150 

110 LET^S =S-1" THEN GOT ° 130 
115 GOTO 85 

120 IF E$="S" THEN GOTO 15 
125 LET E=URL E$ 

130 PRINT TRB 20; E; **/■“: 

135 INPUT U 
140 PRINT Li 

145 LET fl*(S)=CHJR$ E U 

150 LET S=S + 1 
155 GOTO 85 
200 FRST 

205 FOR 1=1 TO 1E3 

210 IF CODE A$(I)=255 THEN GOTO 
15 

215 IF CODE R$(I)=16 THEN GOTO 
250 

220 POKE R,CODE R$(I) 

225 POKE B,CODE R$(I,2) 

227 RRND USR M 
230 NEXT I 
235 GOTO 15 

250 PAUSE CODE R«(1,2)*50 
255 GOTO 230 
300 SCROLL 
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305 

310 

RDER 

315 

320 


SCROLL 

PRINT 


"STARTEN 


SIE 


DEN REKO 


SCROLL 

PRINT 


"DRUECKEN SIE DANN N/ 


L " 

325 IF INKEY$<> 
330 IF INKEY$=" 
335 SAUE “W 
34-0 SCROLL 
34-5 SCROLL 


1 THEN GOTO 325 
THEN GOTO 33© 


350 SCROLL 
355 PRINT 


MUSIKSTUECK 


LOESCHEN 


o " 


370 INPUT E$ „ 

375 IF E$ < > ** vJ'" THEN GOTO 15 
380 RUN 


1) EINGABE 2) SPIELEN 

3 } AUF BAND SPEICHERN 
BEGINN 71 


1 0/0 

2 0/0 

3 0/0 

4- 0/0 

5 0/0 

6 0/0 


7/120 

2/75 

3/5 

9/15 

16/2 

255/0 


7 0/0 


1 ) 

3) 


EINGABE 
AUF BAND 


2) SPIELEN 
SPEICHERN 


EEEEEEEEEEEEEEEEEEEEEEEEEE 
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Technische Daten des ZX 81 


Der von Sinclair Research Limited entwickelte Sinclair ZX81 
wurde der Öffentlichkeit erstmals im März 1981 vorgestellt. 1981 
gewann der Kleincomputer den englischen Designpreis. 

Maße: 167 mm x 175 mm x 40 mm. 

Gewicht: 350 g. 

Mikroprozessor: Z 80 A, Takt 3,25 MHz. 

Tastatur: Folientastatur mit 40 Sensortasten mit bis zu fünf 
Funktionen, Darstellungsmöglichkeit von Buchstaben, Symbo¬ 
len und Grafikzeichen. 

Display: Jeder Fernsehbildschirm; die Zeichen werden schwarz 
auf weißem Grund dargestellt. 

Interfaces: TV, Kassettenrecorder. 

Speicherung: Mit jedem handelsüblichen Kassettenrecorder auf 
Kompaktkassetten. 

Speicher: 8K-ROM + 1K-RAM in der Grundversion, der frei 
programmierbare Speicher kann bis 64K ausgebaut werden. 

Eingabe der Funktionen und Befehle durch einzigen Tasten¬ 
druck. Der Computer prüft jede Eingabe auf Richtigkeit. Mathe¬ 
matische Funktionen werden auf acht Stellen genau berechnet. 

Möglichkeit zum Zeichnen von Grafiken. Mehrdimensionale 
Strings und numerische Felder. Zufallsgenerator beispielsweise 
für Unterhaltungsspiele. Abruf und Speicherung der Programme 
auf handelsüblichen Kompaktkassetten. Die Speicherkapazität 
kann mittels Steckmodulen erweitert werden. Drucker und Peri¬ 
pheriegeräte können angeschlossen werden. 





I 



. .. —• 


Als Abschluß ein wenig 
Computerlatein 


ASCII-Kode 

Klartext 

Arbeits¬ 

speicher 

elektronischer Datenspeicher im Computer 

Back-up 

Sicherheitskopie gespeicherter Daten 

BASIC 

weitverbreitete Programmiersprache 

Betriebssystem 

Grundprogramm, auf dem alle anderen Pro¬ 
gramme aufbauen («Instinkte» des Compu¬ 
ters) 

Bildschirm¬ 

dialog 

auf dem Bildschirm erscheint eine Frage, Sie 
antworten über die Tastatur 

Bildschirm¬ 

maske 

Bildschirmformular zur sicheren und 
bequemen Dateneingabe 

Branchen¬ 

lösung 

Standardprogramm(e), spezialisiert für eine 
bestimmte Branche 

Byte 

1 Zeichen (Buchstabe oder Zahl) 

COBOL 

weitverbreitete Programmiersprache, beson¬ 
ders für kommerzielle Programme 

Compiler 

Automatischer Programmsprachenübersetzer 
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Computerlatein 


Control-Taste Sondertaste auf der Tastatur, gibt den Buch¬ 

staben jeweils eine zusätzliche Funktion 

CP/M weitverbreitetes Mikrocomputer-Betriebs¬ 

system 

Cursor über dem Bildschirm beweglicher Lichtpunkt 

Datei Oberbegriff für Kartei, Liste, Verzeichnis ... 

Diskette biegsame Magnetspeicherscheibe 

Drucker automatische Ausgabeschreibmaschine 

File «Akte», ein auf der Diskette gespeichertes 

Programm oder Datenpaket 

Floppy-Disk = Diskette 

FORTRAN weitverbreitete Programmiersprache 

Hardware Geräte, also Computer, Drucker, Kabel... 

höhere Vorrat von Befehlen, mit denen Programme 

Sprache geschrieben werden 

Individual- Programm, das für eine individuelle Einzel¬ 
programme anwendung geschrieben ist 

Interface elektronischer Baustein für die Verbindung 

zweier Geräte, Schnittstelle 

Interpreter automatischer Programmsprachenübersetzer 

Kilobyte = 1000 Byte 

Laufwerk Gerät zum Schreiben und Lesen auf Magnet¬ 

speichern 

= 1 Mio. Byte entsprechend 500 Seiten 
DIN A4 


Megabyte 


Computerlatein 
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Mikro¬ 

prozessor 

Modem 

Nadeldrucker 

PASCAL 

Peripherie 

Plotter 

Prozessor 

RAM 

ROM 

Schnittstelle 

Software 

Standard¬ 

programm 

Typenrad¬ 

drucker 

Unix 

V24 

Winchester- 

platte 


elektronischer Baustein, das «Herz» des 
Mikrocomputers 

Anschluß des Computers ans Telefon 

computergesteuerte Schreibmaschine, schlägt 
die Buchstaben über kleine Nadeln aufs Papier 

weitverbreitete Programmiersprache 

Sammelbegriff für alle an den Computer 
angeschlossenen Geräte 

computergesteuerte Zeichenmaschine 

elektronische Baueinheit, das «Herz» des 
Computers 

elektronischer Arbeitsspeicher des Computers 
(Random Access Memory) 

elektronischer Festwert-Speicherbaustein 
(Read Only Memory) 

Verbindung zweier Geräte 

Programme und Daten 

Programm, das für allgemeine Anwendungen 
geschrieben wurde 

computergesteuerte Schreibmaschine für 
sauberes Schriftbild 

weitverbreitetes Mikrocomputer-Betriebssystem 

Norm für Kabelverbindungen vom und zum 
Computer 

magnetische Speicherplatte, staubdicht 
verkapselt 
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